display boosted polls

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index d90a759..10b867c 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -645,8 +645,11 @@ message is a link which unhides/hides the main body."
 
 (defun mastodon-tl--content (toot)
   "Retrieve text content from TOOT."
-  (let ((content (mastodon-tl--field 'content toot))
-        (poll-p (cdr (assoc 'poll toot))))
+  (let* ((content (mastodon-tl--field 'content toot))
+         (reblog (cdr (assoc 'reblog toot)))
+         (poll-p (if reblog
+                     (cdr (assoc 'poll reblog))
+                   (cdr (assoc 'poll toot)))))
     (concat
      (when poll-p
        (mastodon-tl--get-poll toot))