From 5fdb205b8b701a73a667dc62c5c615a0e18161e5 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Mon, 1 Jun 2020 23:52:22 +0300 Subject: [PATCH] mu4e: Update for sexp format changes --- mu4e/mu4e-utils.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/mu4e/mu4e-utils.el b/mu4e/mu4e-utils.el index b97a5295..b057483c 100644 --- a/mu4e/mu4e-utils.el +++ b/mu4e/mu4e-utils.el @@ -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"))