From 593ad71b2c331d6aeb24dcfb943d4cc435e36bf3 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 25 Nov 2022 17:45:53 +0100 Subject: don't require match for handle at point --- lisp/mastodon-profile.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 801ebd4..d9b45c8 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -830,6 +830,7 @@ These include the author, author of reblogged entries and any user mentioned." User may be the current profile page if not your own, or the account ('toot-json) at point if you are on your own profile page (followers)." (interactive) + ;; FIXME: this means you can't choose another account if on a profile page (let* ((account (unless id (cond ((and ;; we are on a profile page mastodon-profile--account @@ -869,7 +870,7 @@ account ('toot-json) at point if you are on your own profile page (followers)." (let* ((handles (mastodon-profile--extract-users-handles (mastodon-profile--toot-json))) (handle (completing-read "Remove from followers: " - handles)) + handles nil)) (account (mastodon-profile--lookup-account-in-status handle (mastodon-profile--toot-json))) (id (alist-get 'id account))) -- cgit v1.2.3