From b15cfd7ffae961b94f45e4402ede05146cf9416d Mon Sep 17 00:00:00 2001 From: Thomas Jost Date: Thu, 26 May 2011 19:22:41 +0200 Subject: [PATCH] emacs: Add a customization allowing to always prompt for the "From" address when composing a new message --- emacs/notmuch-mua.el | 11 ++++++++--- 1 file 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)))