diff options
| author |  Thomas Jost <schnouki@schnouki.net> | 2011-05-26 19:22:41 +0200 |
|---|---|---|
| committer |  Carl Worth <cworth@cworth.org> | 2011-05-26 10:38:39 -0700 |
| commit | b15cfd7ffae961b94f45e4402ede05146cf9416d (patch) | |
| tree | 142e13c0cfd11dca97ece530ec1e41421000a4a7 /emacs | |
| parent | f7cc259c10cc1a1c85b48d6c826c5e9effb3e34a (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.el | 11 |
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))) |