From: Keith Amidon <keith@nicira.com> Sometimes forwarding a message is preferable to replying and modifying the set of recipients. This commit provides that ability using the message-forward function. --- notmuch.el | 7 +++++++ 1 files changed, 7 insertions(+), 0 deletions(-) diff --git a/notmuch.el b/notmuch.el index a71a9f7..d3d75f9 100644 --- a/notmuch.el +++ b/notmuch.el @@ -62,6 +62,7 @@ ; overlays-at to query and manipulate the current overlay. (define-key map "a" 'notmuch-show-archive-thread) (define-key map "A" 'notmuch-show-mark-read-then-archive-thread) + (define-key map "f" 'notmuch-show-forward-current) (define-key map "m" 'message-mail) (define-key map "n" 'notmuch-show-next-message) (define-key map "N" 'notmuch-show-mark-read-then-next-open-message) @@ -316,6 +317,12 @@ buffer." (let ((message-id (notmuch-show-get-message-id))) (notmuch-reply message-id))) +(defun notmuch-show-forward-current () + "Forward a the current message." + (interactive) + (with-current-notmuch-show-message + (message-forward))) + (defun notmuch-show-pipe-message (command) "Pipe the contents of the current message to the given command. -- 1.6.5.3