aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-06-15 14:24:05 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-06-15 14:24:05 +0200
commitfec34bf00faf37b757bf6393c3042159b2fefe13 (patch)
tree9fdf1bb96b31cb62661656bd8ccb799199cb8b0d /lisp/mastodon-tl.el
parentbc5ae8643130f55df84da9e07b5e292888d68770 (diff)
handle nil value in poll expires_at attr.
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 4d49dea..c947807 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1123,7 +1123,9 @@ LONGEST-OPTION is the option whose length determines the formatting."
""))
'face 'font-lock-comment-face)
(let ((str (if (eq .expired :json-false)
- (mastodon-tl--format-poll-expiry .expires_at)
+ (if (eq .expires_at nil)
+ ""
+ (mastodon-tl--format-poll-expiry .expires_at))
"Poll expired.")))
(propertize str 'face 'font-lock-comment-face))
"\n"))))