emacs/notmuch-show.el: Avoid passing unintended format strings to `message'

[notmuch] / emacs / notmuch-show.el

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 6f5a55d470756e8a3eb42f92bca663a6aad1c258..31f9cfb0ed613a45cfb8fd94aeb3e4f216c1eb44 100644 (file)
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -917,8 +917,8 @@ All currently available key bindings:
   :group 'notmuch)
 
 (defun notmuch-show-do-stash (text)
-    (kill-new text)
-    (message (concat "Saved: " text)))
+  (kill-new text)
+  (message "Saved: %s" text))
 
 (defun notmuch-show-stash-cc ()
   "Copy CC field of current message to kill-ring."
@@ -1006,8 +1006,10 @@ used."
       (erase-buffer)
       (goto-char (point-min))
       (save-excursion
-       (let* ((basic-args (list notmuch-command nil t nil "show" "--entire-thread" thread-id))
-               (args (if query-context (append basic-args (list "and (" query-context ")")) basic-args)))
+       (let* ((basic-args (list notmuch-command nil t nil "show" "--entire-thread" "\'" thread-id))
+               (args (if query-context
+                         (append basic-args (list "and (" query-context ")\'"))
+                       (append basic-args (list "\'")))))
          (apply 'call-process args)
          (when (and (eq (buffer-size) 0) query-context)
            (apply 'call-process basic-args)))