From 26bb521f52960af10775864b822d6e84c507ead3 Mon Sep 17 00:00:00 2001 From: Carl Worth Date: Tue, 10 Nov 2009 18:47:53 -0800 Subject: [PATCH] notmuch.el: Add a binding ('r') to reply to the current message. We were just starting to get "notmuch reply" into shape in order to provide the needed functionality here, but then I realized that the message-reply function built into emacs is already more functional, (at least for the case of replying to a single message). --- notmuch.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/notmuch.el b/notmuch.el index 34e43942..608c76d4 100644 --- a/notmuch.el +++ b/notmuch.el @@ -41,6 +41,7 @@ (define-key map (kbd "C-n") 'notmuch-show-next-line) (define-key map (kbd "C-p") 'notmuch-show-previous-line) (define-key map "q" 'kill-this-buffer) + (define-key map "r" 'notmuch-show-reply) (define-key map "s" 'notmuch-show-toggle-signatures-visible) (define-key map "w" 'notmuch-show-view-raw-message) (define-key map "x" 'kill-this-buffer) @@ -221,6 +222,14 @@ buffer." (interactive) (view-file (notmuch-show-get-filename))) +(defun notmuch-show-reply () + "Begin composing a reply to the current message in a new buffer." + (interactive) + (view-file (notmuch-show-get-filename)) + (let ((buf (current-buffer))) + (message-reply) + (kill-buffer buf))) + (defun notmuch-show-pipe-message (command) "Pipe the contents of the current message to the given command. -- 2.26.2