aboutsummaryrefslogtreecommitdiffhomepage
path: root/notmuch.el
diff options
context:
space:
mode:
authorGravatar Keith Amidon <keith@nicira.com>2009-11-27 05:30:11 -0800
committerGravatar Carl Worth <cworth@cworth.org>2009-11-27 21:11:37 -0800
commit07ce64e4352291fb5bd265f20c683c653ab81966 (patch)
treed2c000b5e4051ff04b858c1886c80118fad0a11d /notmuch.el
parentc4463d4cb482abebdffe725a85fff35a0eba31a1 (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.el7
1 files changed, 7 insertions, 0 deletions
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.