diff options
| author |  Mark Walters <markwalters1009@gmail.com> | 2013-06-09 09:41:48 +0100 |
|---|---|---|
| committer |  David Bremner <bremner@debian.org> | 2013-06-24 22:49:33 -0700 |
| commit | 7bc404f0a409a3ddae4178245445ffa922c4c544 (patch) | |
| tree | 9e867a1d5d5552ec52e184f37422d4c10d10ccbd /emacs | |
| parent | d0bd88f06db6a7a83f6fb5477f293f7d80db14c7 (diff) | |
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.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-show.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index d030ea3f..384f879b 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -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 open messages in the current thread (formatted as an mbox) rather 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) (if entire-thread (setq shell-command |