* cosmetic

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

View File

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