aboutsummaryrefslogtreecommitdiffhomepage
path: root/emacs
diff options
context:
space:
mode:
authorGravatar Thomas Jost <schnouki@schnouki.net>2011-05-26 19:22:41 +0200
committerGravatar Carl Worth <cworth@cworth.org>2011-05-26 10:38:39 -0700
commitb15cfd7ffae961b94f45e4402ede05146cf9416d (patch)
tree142e13c0cfd11dca97ece530ec1e41421000a4a7 /emacs
parentf7cc259c10cc1a1c85b48d6c826c5e9effb3e34a (diff)
emacs: Add a customization allowing to always prompt for the "From" address when composing a new message
Diffstat (limited to 'emacs')
-rw-r--r--emacs/notmuch-mua.el11
1 files changed, 8 insertions, 3 deletions
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index 6575af64..61a723b7 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -149,6 +149,11 @@ name and addresses configured in the notmuch configuration file."
:group 'notmuch
: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 ()
(if 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."
(interactive "P")
(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))))))
(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
the From: address first."
(interactive "P")
- (if prompt-for-sender
+ (if (or prompt-for-sender notmuch-always-prompt-for-sender)
(let* ((sender (notmuch-mua-prompt-for-sender))
(address-components (mail-extract-address-components sender))
(user-full-name (car address-components))
@@ -193,7 +198,7 @@ the From: address first."
"Invoke the notmuch reply window."
(interactive "P")
(let ((sender
- (when prompt-for-sender
+ (when (or prompt-for-sender notmuch-always-prompt-for-sender)
(notmuch-mua-prompt-for-sender))))
(notmuch-mua-reply query-string sender)))