emacs: Fix notmuch-show-pipe-message to use notmuch-command variable

Previously notmuch command name was hardcoded into this function,
which made remote use of pipe command impossible.
This commit is contained in:
Michal Sojka 2010-11-07 00:09:18 +01:00 committed by Carl Worth
parent eb8caadd48
commit c7189ed607

View file

@ -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)