debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-31 13:51:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Add a binding ('r') to reply to the current message.

Browse source 
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).
This commit is contained in:
Carl Worth 2009-11-10 18:47:53 -08:00
parent dfc0780cba
commit 26bb521f52
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
notmuch.el
View file

@ -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.