mirror of https://github.com/djcb/mu.git
mu4e: Update for sexp format changes
This commit is contained in:
parent
452f62f5c0
commit
5fdb205b8b
|
@ -671,13 +671,15 @@ This is used by the completion function in mu4e-compose."
|
|||
:size (length contacts))))
|
||||
(dolist (contact contacts)
|
||||
(cl-incf n)
|
||||
(let ((address
|
||||
(if (functionp mu4e-contact-process-function)
|
||||
(funcall mu4e-contact-process-function (car contact))
|
||||
(car contact))))
|
||||
(let* ((address (plist-get contact :address))
|
||||
(address
|
||||
(if (functionp mu4e-contact-process-function)
|
||||
(funcall mu4e-contact-process-function address)
|
||||
address)))
|
||||
(when address ;; note the explicit deccode; the strings we get are utf-8,
|
||||
;; but emacs doesn't know yet.
|
||||
(puthash (decode-coding-string address 'utf-8) (cdr contact) mu4e~contacts))))
|
||||
(puthash (decode-coding-string address 'utf-8)
|
||||
(plist-get contact :rank) mu4e~contacts))))
|
||||
|
||||
(setq mu4e~contacts-tstamp (or tstamp "0"))
|
||||
|
||||
|
|
Loading…
Reference in New Issue