aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-profile.el
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2022-02-15 17:04:35 +0100
committermousebot <mousebot@riseup.net>2022-02-15 19:38:15 +0100
commitb2302027969ec305969c4024296b05f50e4f1846 (patch)
tree7398e10e9e4f612e452d96eb3fbf665f4a08cdf9 /lisp/mastodon-profile.el
parentb26b4f835aee9317c13e98922342994e26a54078 (diff)
make profile--extract-user-handles compat with foll req view
this allows following users directly from foll req views made extract-users-handles work with follwers/following in profile view
Diffstat (limited to 'lisp/mastodon-profile.el')
-rw-r--r--lisp/mastodon-profile.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index f779648..857c349 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -454,7 +454,12 @@ If the handle does not match a search return then retun NIL."
These include the author, author of reblogged entries and any user mentioned."
(when status
- (let ((this-account (alist-get 'account status))
+ (let ((this-account
+ ;; follow suggestions view compat:
+ (if (or (equal (buffer-name) "*mastodon-follow-suggestions*")
+ (string-prefix-p "accounts" (mastodon-tl--get-endpoint)))
+ (mastodon-tl--property 'toot-json)
+ (alist-get 'account status)))
(mentions (alist-get 'mentions status))
(reblog (alist-get 'reblog status)))
(seq-filter