From bcf4d626f27c543f15d74132442a02a7e74d9179 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 10 Aug 2019 22:33:23 -0400 Subject: Fix spots that pass variable strings as message's format-string --- lisp/km-gnus.el | 4 ++-- lisp/km-magit.el | 2 +- lisp/km-mail.el | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp') 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) -- cgit v1.2.3