emacs: show: change emacs interactive pipe message.

Previously the query string for piping a message to a command was
"Pipe message to command: " regardless of whether the function was
called with a prefix argument (which pipes all open messages to the
command). This patch modifies the `interactive' command to reflect
this.
This commit is contained in:
Mark Walters 2013-06-09 09:41:48 +01:00 committed by David Bremner
parent d0bd88f06d
commit 7bc404f0a4

View file

@ -1751,7 +1751,10 @@ to stdout or stderr will appear in the *notmuch-pipe* buffer.
When invoked with a prefix argument, the command will receive all When invoked with a prefix argument, the command will receive all
open messages in the current thread (formatted as an mbox) rather open messages in the current thread (formatted as an mbox) rather
than only the current message." than only the current message."
(interactive "P\nsPipe message to command: ") (interactive (let ((query-string (if current-prefix-arg
"Pipe all open messages to command: "
"Pipe message to command: ")))
(list current-prefix-arg (read-string query-string))))
(let (shell-command) (let (shell-command)
(if entire-thread (if entire-thread
(setq shell-command (setq shell-command