]> git.notmuchmail.org Git - notmuch/blobdiff - emacs/notmuch-show.el
Update some more recent tests to use /usr/bin/env to find bash
[notmuch] / emacs / notmuch-show.el
index 93c5e53b2d235e0ead9b321011149183422216d1..2ba151edfc81059ad8a69f79ab6e61d860052dab 100644 (file)
@@ -1098,16 +1098,16 @@ any effects from previous calls to
       ;; Move to the previous message.
       (notmuch-show-previous-message)))))
 
-(defun notmuch-show-reply ()
+(defun notmuch-show-reply (&optional prompt-for-sender)
   "Reply to the current message."
-  (interactive)
-  (notmuch-mua-reply (notmuch-show-get-message-id)))
+  (interactive "P")
+  (notmuch-mua-new-reply (notmuch-show-get-message-id) prompt-for-sender))
 
-(defun notmuch-show-forward-message ()
+(defun notmuch-show-forward-message (&optional prompt-for-sender)
   "Forward the current message."
-  (interactive)
+  (interactive "P")
   (with-current-notmuch-show-message
-   (notmuch-mua-forward-message)))
+   (notmuch-mua-new-forward-message prompt-for-sender)))
 
 (defun notmuch-show-next-message ()
   "Show the next message."