From a01eec0d57ed64f8a83784cd48e44fc2961e0d64 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Wed, 7 Feb 2024 21:02:53 +0100
Subject: message appropriately for foll req

---
 lisp/mastodon-tl.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 3d8e8dd..d462918 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -2149,7 +2149,10 @@ ARGS is an alist of any parameters to send with the request."
                          (mapconcat #'cdr args " ")))
                ((and (eq notify nil)
                      (eq reblogs nil))
-                (message "User %s (@%s) %sed!" name user-handle action))))))))
+                (if (and (equal action "follow")
+                         (eq t (alist-get 'requested json)))
+                    (message "Follow requested for user %s (@%s)!" name user-handle)
+                  (message "User %s (@%s) %sed!" name user-handle action)))))))))
 
 
 ;; FOLLOW TAGS
-- 
cgit v1.2.3