From 2bf81965326040e99b2cc2ba9f1850d1c9868160 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Tue, 13 Sep 2022 13:00:41 +0200
Subject: another proper-list-p test

---
 lisp/mastodon-tl.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lisp/mastodon-tl.el')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 4726d29..158ba5f 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -668,8 +668,10 @@ START and END are the boundaries of the link in the toot."
           (;; User handles:
            maybe-userhandle
            ;; this fails on mentions in profile notes:
-           (let ((maybe-userid (mastodon-tl--extract-userid-toot
-                                toot maybe-userhandle)))
+           (let ((maybe-userid
+                  (when (proper-list-p toot)
+                    (mastodon-tl--extract-userid-toot
+                     toot maybe-userhandle))))
              (setq mastodon-tab-stop-type 'user-handle
                    keymap mastodon-tl--link-keymap
                    help-echo (concat "Browse user profile of " maybe-userhandle)
-- 
cgit v1.2.3