diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-23 22:12:36 +0200 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-23 22:12:36 +0200 |
commit | bc7be89d5297b5e2cd7b31a9281123578eb5c5bc (patch) | |
tree | 5ce7de86b97c4a57fc995c7f8960aae6f377c162 | |
parent | b16a09f9b488098b818ac68c10a9a199db215d46 (diff) |
tl--content: use tl--field
-rw-r--r-- | lisp/mastodon-tl.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 0977475..90c2cbf 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1237,10 +1237,7 @@ in which case play first video or gif from current toot." "Retrieve text content from TOOT. Runs `mastodon-tl--render-text' and fetches poll or media." (let* ((content (mastodon-tl--field 'content toot)) - (reblog (alist-get 'reblog toot)) - (poll-p (if reblog - (alist-get 'poll reblog) - (alist-get 'poll toot)))) + (poll-p (mastodon-tl--field 'poll toot))) (concat (mastodon-tl--render-text content toot) (when poll-p (mastodon-tl--get-poll toot)) |