X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=c22add7aa97f4a001100bc289c9fbfca6e13e4cb;hp=c3ed0cdb2b895a694fd5a24c2ba065122eba83d8;hb=f7cc259c10cc1a1c85b48d6c826c5e9effb3e34a;hpb=1a8aae6fa7be108819fa848df3dc98e1840f5eba

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index c3ed0cdb..c22add7a 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -436,11 +436,11 @@ Complete list of currently available key bindings:
 			 32 nil nil t)))
       (error "End of search results"))))
 
-(defun notmuch-search-reply-to-thread ()
+(defun notmuch-search-reply-to-thread (&optional prompt-for-sender)
   "Begin composing a reply to the entire current thread in a new buffer."
-  (interactive)
+  (interactive "P")
   (let ((message-id (notmuch-search-find-thread-id)))
-    (notmuch-mua-reply message-id)))
+    (notmuch-mua-new-reply message-id prompt-for-sender)))
 
 (defun notmuch-call-notmuch-process (&rest args)
   "Synchronously invoke \"notmuch\" with the given list of arguments.