From 06b63f49793a187512c1819e8918e3933d8ea213 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sun, 18 Dec 2022 10:22:02 +1100
Subject: message auth URL when copying to kill ring

---
 lisp/mastodon-auth.el | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lisp/mastodon-auth.el')

diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el
index 263ece2..4c508a4 100644
--- a/lisp/mastodon-auth.el
+++ b/lisp/mastodon-auth.el
@@ -137,6 +137,7 @@ When ASK is absent return nil."
   (let ((url (mastodon-auth--get-browser-login-url))
         authorization-code)
     (kill-new url)
+    (message url)
     (setq authorization-code
           (mastodon-auth--show-notice mastodon-auth--explanation
                                       "*mastodon-notice*"
-- 
cgit v1.2.3


From ffb83a2edb908a20b666ae42855f51217a7fb0c1 Mon Sep 17 00:00:00 2001
From: Troels Henriksen <athas@sigkill.dk>
Date: Fri, 23 Dec 2022 16:23:19 +0100
Subject: Do not pass URL directly to message.

This breaks if it contains any % characters.
---
 lisp/mastodon-auth.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/mastodon-auth.el')

diff --git a/lisp/mastodon-auth.el b/lisp/mastodon-auth.el
index 4c508a4..3de2901 100644
--- a/lisp/mastodon-auth.el
+++ b/lisp/mastodon-auth.el
@@ -137,7 +137,7 @@ When ASK is absent return nil."
   (let ((url (mastodon-auth--get-browser-login-url))
         authorization-code)
     (kill-new url)
-    (message url)
+    (message "%s" url)
     (setq authorization-code
           (mastodon-auth--show-notice mastodon-auth--explanation
                                       "*mastodon-notice*"
-- 
cgit v1.2.3