diff options
author | Keith Amidon <keith@nicira.com> | 2009-11-27 05:30:11 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-11-27 21:11:37 -0800 |
commit | 07ce64e4352291fb5bd265f20c683c653ab81966 (patch) | |
tree | d2c000b5e4051ff04b858c1886c80118fad0a11d /notmuch.el | |
parent | c4463d4cb482abebdffe725a85fff35a0eba31a1 (diff) |
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.
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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. |