alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* cosmetic

Browse Source
This commit is contained in:
djcb
2012-06-24 10:38:09 +03:00
parent 85f1f31bf6
commit 0af32c4735
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
emacs/mu4e-utils.el
View File

@ -557,17 +557,15 @@ This is used by the completion function in mu4e-compose."
(let ((lst)) (let ((lst))
(dolist (contact contacts) (dolist (contact contacts)
(let ((name (plist-get contact :name)) (let ((name (plist-get contact :name))
(mail (plist-get contact :mail)))
(mail (plist-get contact :mail))) (mail (plist-get contact :mail)))
(when mail (when mail
(unless ;; ignore some address ('noreply' etc.) (unless ;; ignore some address ('noreply' etc.)
(and mu4e-compose-complete-ignore-address-regexp (and mu4e-compose-complete-ignore-address-regexp
(string-match mu4e-compose-complete-ignore-address-regexp mail)) (string-match mu4e-compose-complete-ignore-address-regexp mail))
(add-to-list 'lst (add-to-list 'lst
(if name
(format "%s <%s>" name mail)
(if name (format "%s <%s>" name mail) mail)))))) (if name (format "%s <%s>" name mail) mail))))))
(setq mu4e~contacts-for-completion lst) (setq mu4e~contacts-for-completion lst)
(mu4e-message "Contacts received: %d"
(length mu4e~contacts-for-completion)))) (length mu4e~contacts-for-completion))))