debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

notmuch.el: Switch to using "notmuch reply" rather than message-reply.

Browse source 
This way we get to take advantage of the configuration of the user's
email addresses in notmuch, (rather than expecting the user to
configure all of their email addresses in message mode as well).
This commit is contained in:
Carl Worth 2009-11-11 21:37:35 -08:00
parent 8f9bd26e62
commit 1407e409b1
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
notmuch.el
View file

@ -225,10 +225,15 @@ buffer."
(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)))
(let ((message-id (notmuch-show-get-message-id)))
(switch-to-buffer (generate-new-buffer "notmuch-draft"))
(call-process "notmuch" nil t nil "reply" message-id)
(goto-char (point-min))
(if (re-search-forward "^$" nil t)
(progn
(insert "--text follows this line--")
(forward-line)))
(message-mode)))
(defun notmuch-show-pipe-message (command)
"Pipe the contents of the current message to the given command.