diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-tl.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 2fa3526..7ba78e4 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1319,15 +1319,15 @@ Can be called to toggle NOTIFY on users already being followed." (defun mastodon-tl--interactive-user-handles-get (action) "Get the list of user-handles for ACTION from the current toot." (let ((user-handles - ;; follow suggests / search compat: (cond ((or (equal (buffer-name) "*mastodon-follow-suggestions*") - (string-prefix-p "*mastodon-search" (buffer-name))) - (list (alist-get 'acct (mastodon-tl--property 'user-json)))) - ;; profile view follows/followers compat: - ;; but not for profile statuses: - ((when (and (string-prefix-p "accounts" (mastodon-tl--get-endpoint)) - (not (string-suffix-p "statuses" (mastodon-tl--get-endpoint)))) - (list (alist-get 'acct (mastodon-tl--property 'toot-json))))) + ;; follow suggests / search / foll requests compat: + (string-prefix-p "*mastodon-search" (buffer-name)) + (equal (buffer-name) "*mastodon-follow-requests*") + ;; profile view follows/followers compat: + ;; but not for profile statuses: + (and (string-prefix-p "accounts" (mastodon-tl--get-endpoint)) + (not (string-suffix-p "statuses" (mastodon-tl--get-endpoint))))) + (list (alist-get 'acct (mastodon-tl--property 'toot-json)))) (t (mastodon-profile--extract-users-handles (mastodon-profile--toot-json)))))) |