emacs/mu
1
0
Fork 0
mirror of https://github.com/djcb/mu.git synced 2024-06-21 06:56:48 +02:00
Code Issues 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
Show Stats 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)))
(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
(defun mu4e~fill-contacts (contacts)
@ -628,8 +642,9 @@ This is used by the completion function in mu4e-compose."
(< tstamp1 tstamp2)
(< freq1 freq2)))))))
(dolist (contact contacts)
(let ((name (plist-get contact :name))
(mail (plist-get contact :mail)))
(let* ((canonicalcontact (funcall mu4e-canonical-contact-function contact))
(name (plist-get canonicalcontact :name))
(mail (plist-get canonicalcontact :mail)))
(when mail
(unless ;; ignore some address ('noreply' etc.)
(and mu4e-compose-complete-ignore-address-regexp