debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-22 17:34:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Cleaner interface when prompting for sender address

Browse source 
Most of the time, every entry in the list of identities has the same user name
part. It can then be filled in automatically, and the user can only be prompted
for the email address, which makes the interface much cleaner.
This commit is contained in:
Thomas Jost 2011-05-28 14:51:56 -07:00 committed by Carl Worth
parent 78138ec9aa
commit dacaaf3a07
1 changed files with 23 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
emacs/notmuch-mua.el
View file

@ -162,20 +162,33 @@ the From: header is already filled in by notmuch."
:group 'notmuch
:type 'boolean)
(defun notmuch-mua-sender-collection ()
(if notmuch-identities
notmuch-identities
(mapcar (lambda (address)
(concat (notmuch-user-name) " <" address ">"))
(cons (notmuch-user-primary-email) (notmuch-user-other-email)))))
(defvar notmuch-mua-sender-history nil)
(defun notmuch-mua-prompt-for-sender ()
(interactive)
(let ((collection (notmuch-mua-sender-collection)))
(ido-completing-read "Send mail From: " collection
nil 'confirm nil 'notmuch-mua-sender-history (car collection))))
(let (name addresses one-name-only)
;; If notmuch-identities is non-nil, check if there is a fixed user name.
(if notmuch-identities
(let ((components (mapcar 'mail-extract-address-components notmuch-identities)))
(setq name (caar components)
addresses (mapcar 'cadr components)
one-name-only (eval
(cons 'and
(mapcar (lambda (identity)
(string-equal name (car identity)))
components)))))
;; If notmuch-identities is nil, use values from the notmuch configuration file.
(setq name (notmuch-user-name)
addresses (cons (notmuch-user-primary-email) (notmuch-user-other-email))
one-name-only t))
;; Now prompt the user, either for an email address only or for a full identity.
(if one-name-only
(let ((address
(ido-completing-read (concat "Sender address for " name ": ") addresses
nil nil nil 'notmuch-mua-sender-history (car addresses))))
(concat name " <" address ">"))
(ido-completing-read "Send mail From: " notmuch-identities
nil nil nil 'notmuch-mua-sender-history (car notmuch-identities)))))
(defun notmuch-mua-new-mail (&optional prompt-for-sender)
"Invoke the notmuch mail composition window.