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

emacs: Add a customization allowing to always prompt for the "From" address when composing a new message

Browse source
This commit is contained in:
Thomas Jost 2011-05-26 19:22:41 +02:00 committed by Carl Worth
parent f7cc259c10
commit b15cfd7ffa
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/notmuch-mua.el
View file

@ -149,6 +149,11 @@ name and addresses configured in the notmuch configuration file."
:group 'notmuch :group 'notmuch
:type '(repeat string)) :type '(repeat string))
(defcustom notmuch-always-prompt-for-sender nil
"Always prompt for the From: address when composing a new message."
:group 'notmuch
:type 'boolean)
(defun notmuch-mua-sender-collection () (defun notmuch-mua-sender-collection ()
(if notmuch-identities (if notmuch-identities
notmuch-identities notmuch-identities
@ -171,7 +176,7 @@ If PROMPT-FOR-SENDER is non-nil, the user will be prompted for
the From: address first." the From: address first."
(interactive "P") (interactive "P")
(let ((other-headers (let ((other-headers
(when prompt-for-sender (when (or prompt-for-sender notmuch-always-prompt-for-sender)
(list (cons 'from (notmuch-mua-prompt-for-sender)))))) (list (cons 'from (notmuch-mua-prompt-for-sender))))))
(notmuch-mua-mail nil nil other-headers))) (notmuch-mua-mail nil nil other-headers)))
@ -181,7 +186,7 @@ the From: address first."
If PROMPT-FOR-SENDER is non-nil, the user will be prompted for If PROMPT-FOR-SENDER is non-nil, the user will be prompted for
the From: address first." the From: address first."
(interactive "P") (interactive "P")
(if prompt-for-sender (if (or prompt-for-sender notmuch-always-prompt-for-sender)
(let* ((sender (notmuch-mua-prompt-for-sender)) (let* ((sender (notmuch-mua-prompt-for-sender))
(address-components (mail-extract-address-components sender)) (address-components (mail-extract-address-components sender))
(user-full-name (car address-components)) (user-full-name (car address-components))
@ -193,7 +198,7 @@ the From: address first."
"Invoke the notmuch reply window." "Invoke the notmuch reply window."
(interactive "P") (interactive "P")
(let ((sender (let ((sender
(when prompt-for-sender (when (or prompt-for-sender notmuch-always-prompt-for-sender)
(notmuch-mua-prompt-for-sender)))) (notmuch-mua-prompt-for-sender))))
(notmuch-mua-reply query-string sender))) (notmuch-mua-reply query-string sender)))