X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=ae483dde5cd0041304aa6c3f8f6e21948afee95d;hp=3daa8685a46f3df1f283acba947dc819c8e69a0b;hb=c7189ed607f2715d60133743bf616011796c7e14;hpb=eb8caadd4889fdf7c95c9c853ca7fe0e957334ea

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 3daa8685..ae483dde 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -937,12 +937,13 @@ than only the current message."
   (let (shell-command)
     (if entire-thread
 	(setq shell-command 
-	      (concat "notmuch show --format=mbox "
+	      (concat notmuch-command " show --format=mbox "
 		      (shell-quote-argument
 		       (mapconcat 'identity (notmuch-show-get-message-ids-for-open-messages) " OR "))
 		      " | " command))
       (setq shell-command
-	    (concat "notmuch show --format=raw " (shell-quote-argument (notmuch-show-get-message-id)) " | " command)))
+	    (concat notmuch-command " show --format=raw "
+		    (shell-quote-argument (notmuch-show-get-message-id)) " | " command)))
     (start-process-shell-command "notmuch-pipe-command" "*notmuch-pipe*" shell-command)))
 
 (defun notmuch-show-add-tags-worker (current-tags add-tags)