From 07ce64e4352291fb5bd265f20c683c653ab81966 Mon Sep 17 00:00:00 2001 From: Keith Amidon Date: Fri, 27 Nov 2009 05:30:11 -0800 Subject: [PATCH] Forward individual messages using message-forward 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 file changed, 7 insertions(+) diff --git a/notmuch.el b/notmuch.el index da5a98c7..282932ed 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.