diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-10-17 22:07:25 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-10-17 22:07:25 +0200 |
| commit | d728369ca44cf2ca76935079e0cd5e10521464eb (patch) | |
| tree | 206b0c088fcdfb87df891382623e3e9b07235125 | |
| parent | 91058026d2d98b62072f372211b899a0c31433df (diff) | |
remove mastodon-active-user from extract-users-handles
| -rw-r--r-- | lisp/mastodon-profile.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index ce7fddd..900e9c0 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -861,13 +861,15 @@ These include the author, author of reblogged entries and any user mentioned." status)) ; status is a user listing (mentions (mastodon-tl--field-status 'mentions status)) (reblog (mastodon-tl--field-status 'reblog status))) - (seq-filter #'stringp - (seq-uniq - (seq-concatenate - 'list - (list (alist-get 'acct this-account)) - (mastodon-profile--extract-users-handles reblog) - (mastodon-tl--map-alist 'acct mentions))))))) + (seq-remove + (lambda (x) (string= x mastodon-active-user)) + (seq-filter #'stringp + (seq-uniq + (seq-concatenate + 'list + (list (alist-get 'acct this-account)) + (mastodon-profile--extract-users-handles reblog) + (mastodon-tl--map-alist 'acct mentions)))))))) (defun mastodon-profile--lookup-account-in-status (handle status) "Return account for HANDLE using hints in STATUS if possible." |