X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=384f879b16a6223663c64e41db3b4cbf27b0a426;hp=d030ea3f048f3d13e61f957bba2810a469c10a36;hb=7bc404f0a409a3ddae4178245445ffa922c4c544;hpb=d0bd88f06db6a7a83f6fb5477f293f7d80db14c7

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