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

mu4e: try a little harder to get contacts

Browse Source 
Some people reported problems with completing contacts. It's unclear
what's going on there. Maybe this helps.
This commit is contained in:
djcb
2017-05-06 13:11:26 +03:00
parent bbdee4e765
commit 34d5c61930
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
mu4e/mu4e-utils.el
View File

@ -659,7 +659,8 @@ process."
"Indexing completed; processed %d, updated %d, cleaned-up %d" "Indexing completed; processed %d, updated %d, cleaned-up %d"
(plist-get info :processed) (plist-get info :updated) (plist-get info :processed) (plist-get info :updated)
(plist-get info :cleaned-up)) (plist-get info :cleaned-up))
(unless (zerop (plist-get info :updated)) (unless (or (zerop (plist-get info :updated)) (not mu4e~contacts))
(mu4e~request-contacts)
(run-hooks 'mu4e-index-updated-hook))))) (run-hooks 'mu4e-index-updated-hook)))))
((plist-get info :message) ((plist-get info :message)
(mu4e-index-message "%s" (plist-get info :message)))))) (mu4e-index-message "%s" (plist-get info :message))))))
@ -765,9 +766,9 @@ on the ranking in `mu4e~contacts.'"
;; start and stopping ;; start and stopping
(defun mu4e~fill-contacts (contact-data) (defun mu4e~fill-contacts (contact-data)
"We receive a list of contacts, which each contact of the form "We receive a list of contacts, which each contact of the form
(:me NAME :mail EMAIL :tstamp TIMESTAMP :freq FREQUENCY) (:me NAME :mail EMAIL :tstamp TIMESTAMP :freq FREQUENCY) and
and fill the hash `mu4e~contacts-for-completion' with it, with fill the hash `mu4e~contacts' with it, with each contact mapped
each contact mapped to an integer for their ranking. to an integer for their ranking.
This is used by the completion function in mu4e-compose." This is used by the completion function in mu4e-compose."
(let ((contacts) (rank 0)) (let ((contacts) (rank 0))
@ -842,8 +843,9 @@ Checks whether the server process is live."
"Regexp to match a password query in the `mu4e-get-mail-command' output.") "Regexp to match a password query in the `mu4e-get-mail-command' output.")
(defun mu4e~request-contacts () (defun mu4e~request-contacts ()
"If `mu4e-compose-complete-addresses' is non-nil, get/update the "If `mu4e-compose-complete-addresses' is non-nil, get/update
list of contacts we use for autocompletion; otherwise, do nothing." the list of contacts we use for autocompletion; otherwise, do
nothing."
(when mu4e-compose-complete-addresses (when mu4e-compose-complete-addresses
(setq mu4e-contacts-func 'mu4e~fill-contacts) (setq mu4e-contacts-func 'mu4e~fill-contacts)
(mu4e~proc-contacts (mu4e~proc-contacts
@ -889,8 +891,7 @@ successful, call FUNC (if non-nil) afterwards."
(mu4e~proc-ping) (mu4e~proc-ping)
;; maybe request the list of contacts, automatically refresh after ;; maybe request the list of contacts, automatically refresh after
;; reindexing ;; reindexing
(mu4e~request-contacts) (mu4e~request-contacts))))
(add-hook 'mu4e-index-updated-hook 'mu4e~request-contacts))))
(defun mu4e-clear-caches () (defun mu4e-clear-caches ()
"Clear any cached resources." "Clear any cached resources."