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

emacs: Allow the user to choose the "From" address when forwarding a message

Browse source 
When pressing C-u f, the user will be prompted for the identity to use.
This commit is contained in:
Thomas Jost 2011-05-26 10:41:32 +02:00 committed by Carl Worth
parent 784649561a
commit 1a8aae6fa7
2 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
emacs/notmuch-mua.el
View file

@ -172,6 +172,20 @@ the From: address first."
(list (cons 'from (notmuch-mua-prompt-for-sender))))))
(notmuch-mua-mail nil nil other-headers)))
(defun notmuch-mua-new-forward-message (&optional prompt-for-sender)
"Invoke the notmuch message forwarding window.
If PROMPT-FOR-SENDER is non-nil, the user will be prompted for
the From: address first."
(interactive "P")
(if prompt-for-sender
(let* ((sender (notmuch-mua-prompt-for-sender))
(address-components (mail-extract-address-components sender))
(user-full-name (car address-components))
(user-mail-address (cadr address-components)))
(notmuch-mua-forward-message))
(notmuch-mua-forward-message)))
(defun notmuch-mua-send-and-exit (&optional arg)
(interactive "P")
(message-send-and-exit arg))

6
emacs/notmuch-show.el
View file

@ -1103,11 +1103,11 @@ any effects from previous calls to
(interactive)
(notmuch-mua-reply (notmuch-show-get-message-id)))
(defun notmuch-show-forward-message ()
(defun notmuch-show-forward-message (&optional prompt-for-sender)
"Forward the current message."
(interactive)
(interactive "P")
(with-current-notmuch-show-message
(notmuch-mua-forward-message)))
(notmuch-mua-new-forward-message prompt-for-sender)))
(defun notmuch-show-next-message ()
"Show the next message."