aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2021-12-29 16:58:08 +0100
committermousebot <mousebot@riseup.net>2021-12-29 17:00:52 +0100
commitb694bcca54822bd7e95e24fc1df16eb86fa87c85 (patch)
tree5275429f5bc215a319dd3f16b7a3f150c2f33961
parenta81d042f8ebfeaccb373adc3e20c8c3ad07dc1a6 (diff)
fix follow-request-process: change "accept" to "authorize"
-rw-r--r--lisp/mastodon-notifications.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index d0d221c..6205ebf 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -86,10 +86,7 @@ follow-requests view."
(f-reqs-view-p (string= "follow_requests"
(plist-get mastodon-tl--buffer-spec 'endpoint)))
(f-req-p (or (string= "follow_request" (alist-get 'type toot-json)) ;notifs
- f-reqs-view-p))
- (accept-reject-string (if reject
- "reject"
- "accept")))
+ f-reqs-view-p)))
(if f-req-p
(let* ((account (or (alist-get 'account toot-json) ;notifs
toot-json)) ;f-reqs
@@ -101,14 +98,18 @@ follow-requests view."
(mastodon-http--post
(concat
(mastodon-http--api "follow_requests")
- (format "/%s/%s" id accept-reject-string))
+ (format "/%s/%s" id (if reject
+ "reject"
+ "authorize")))
nil nil)))
(mastodon-http--triage response
(lambda ()
(unless f-reqs-view-p
(mastodon-notifications--get))
- (message "Follow request of %s (@%s) %sed!"
- name handle accept-reject-string))))
+ (message "Follow request of %s (@%s) %s!"
+ name handle (if reject
+ "rejected"
+ "accepted")))))
(message "No account result at point?")))
(message "No follow request at point?")))))