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))))
|
:size (length contacts))))
|
||||||
(dolist (contact contacts)
|
(dolist (contact contacts)
|
||||||
(cl-incf n)
|
(cl-incf n)
|
||||||
(let ((address
|
(let* ((address (plist-get contact :address))
|
||||||
(if (functionp mu4e-contact-process-function)
|
(address
|
||||||
(funcall mu4e-contact-process-function (car contact))
|
(if (functionp mu4e-contact-process-function)
|
||||||
(car contact))))
|
(funcall mu4e-contact-process-function address)
|
||||||
|
address)))
|
||||||
(when address ;; note the explicit deccode; the strings we get are utf-8,
|
(when address ;; note the explicit deccode; the strings we get are utf-8,
|
||||||
;; but emacs doesn't know yet.
|
;; 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"))
|
(setq mu4e~contacts-tstamp (or tstamp "0"))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue