diff options
| -rw-r--r-- | lisp/mastodon-notifications.el | 3 | ||||
| -rw-r--r-- | lisp/mastodon-profile.el | 5 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el index 5e3305a..40f9c04 100644 --- a/lisp/mastodon-notifications.el +++ b/lisp/mastodon-notifications.el @@ -109,7 +109,8 @@ follow-requests view." nil nil))) (mastodon-http--triage response (lambda () - (unless f-reqs-view-p + (if f-reqs-view-p + (mastodon-profile--view-follow-requests) (mastodon-notifications--get)) (message "Follow request of %s (@%s) %s!" name handle (if reject diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index c7f8963..e15a891 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -172,7 +172,10 @@ JSON is the data returned by the server." (concat "\n ------------\n" " FOLLOW REQUESTS\n" " ------------\n\n") - 'success)) + 'success) + (mastodon-tl--set-face + "[a/r - accept/reject request at point\n n/p - go to next/prev request]\n\n" + 'font-lock-comment-face)) (if (equal json '[]) (insert (propertize "Looks like you have no follow requests for now." |