Fix spots that pass variable strings as message's format-string

3 files changed, 4 insertions, 4 deletions

diff --git a/lisp/km-gnus.el b/lisp/km-gnus.el
index 23e3d9a..821001c 100644
--- a/lisp/km-gnus.el
+++ b/lisp/km-gnus.el
@@ -77,7 +77,7 @@ is off."
   (km/gnus-summary-set-current-article)
   (with-current-buffer gnus-original-article-buffer
     (--when-let (km/gnus--gmane-link perma)
-      (kill-new (message it)))))
+      (kill-new (message "%s" it)))))
 
 (defun km/gnus-copy-message-link (follow)
   "Copy link for current message.
@@ -92,7 +92,7 @@ argument FOLLOW, follow link instead of copying it."
                       (km/gnus--last-message-link))
         (funcall (if follow
                      #'browse-url
-                   (lambda (s) (kill-new (message s))))
+                   (lambda (s) (kill-new (message "%s" s))))
                  it)))))
 
 ;;;###autoload
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index b16c49b..e25ebf2 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -455,7 +455,7 @@ argument."
                  magit-buffer-revision)))
              (magit-read-branch-or-commit "Revision"))))
   (--when-let (and rev (magit-git-string "describe" rev))
-    (kill-new (message it))))
+    (kill-new (message "%s" it))))
 
 (defun km/magit-rev-ancestor-p (rev-a rev-b)
   "Report whether REV-A is the ancestor of REV-B."
diff --git a/lisp/km-mail.el b/lisp/km-mail.el
index 38e9eee..17ff3af 100644
--- a/lisp/km-mail.el
+++ b/lisp/km-mail.el
@@ -263,7 +263,7 @@ instead of visiting it."
   (interactive "P")
   (funcall
    (if copy
-       (lambda (url) (kill-new (message url)))
+       (lambda (url) (kill-new (message "%s" url)))
      #'browse-url)
    (km/notmuch-with-raw-message (notmuch-show-get-message-id)
      (or (run-hook-with-args-until-success 'km/notmuch-url-extractors)