From a7148e8c79c7451c035a75217a9349b531752caa Mon Sep 17 00:00:00 2001 From: mousebot Date: Sat, 19 Jun 2021 13:12:44 +0200 Subject: display boosted polls --- lisp/mastodon-tl.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lisp') 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)) -- cgit v1.2.3