diff options
author | Carl Worth <cworth@cworth.org> | 2009-11-10 18:47:53 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-10 18:47:53 -0800 |
commit | 26bb521f52960af10775864b822d6e84c507ead3 (patch) | |
tree | 65c9d9aafdcc1eabdef6da19e5d83cabbf4bdea8 /notmuch.el | |
parent | dfc0780cbab2106a9d8fca69cefae02d4102f397 (diff) |
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).
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -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. |