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

fixes #383

Browse Source
This commit is contained in:
joost
2014-03-28 10:24:43 +01:00
parent 86f0934f7b
commit d2915b7bb9
1 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
mu4e/mu4e-utils.el
View File

@ -604,6 +604,20 @@ process."
(replace-regexp-in-string "\"" "\\\\\"" ph))) (replace-regexp-in-string "\"" "\\\\\"" ph)))
(t (format "\"%s\"" ph))))) (t (format "\"%s\"" ph)))))
;;; names and mail-addresses can be mapped onto their canonical counterpart.
;;; use the customizeable function mu4e-canonical-contact-function to do that.
;;; below the identity function for mapping a contact onto the canonical one.
(defun mu4e-canonical-contact-identity (contact)
"This returns the name and the mail-address of a contact.
It's used as an identity function for converting contacts to their
canonical counterpart."
(let ((name (plist-get contact :name))
(mail (plist-get contact :mail))
)
(list :name name :mail mail)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; start and stopping ;; start and stopping
(defun mu4e~fill-contacts (contacts) (defun mu4e~fill-contacts (contacts)
@ -628,8 +642,9 @@ This is used by the completion function in mu4e-compose."
(< tstamp1 tstamp2) (< tstamp1 tstamp2)
(< freq1 freq2))))))) (< freq1 freq2)))))))
(dolist (contact contacts) (dolist (contact contacts)
(let ((name (plist-get contact :name)) (let* ((canonicalcontact (funcall mu4e-canonical-contact-function contact))
(mail (plist-get contact :mail))) (name (plist-get canonicalcontact :name))
(mail (plist-get canonicalcontact :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