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

* mu4e: add mu4e-index-updated-hook, triggered when the indexing process did

Browse Source 
any updates. This can be used e.g. to get some notification when there is
  new mail. It imperfect though; see the docstring and the entry in the mu4e faq.
This commit is contained in:
djcb
2012-09-11 11:58:00 +03:00
parent 493cfaff1b
commit ef3a8f832d
2 changed files with 34 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
mu4e/mu4e-utils.el
View File

@ -530,6 +530,14 @@ that has a live window), and vice versa."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; some handler functions for server messages
;;
(defvar mu4e-index-updated-hook nil
"Hook run when the indexing process had >0 updated messages. This
can be used as a simple (but imperfect) way to invoke some action
when new messages appear. It's imperfect in the sense that anything
that 'updated' means any change, not just a new message. Also, this
hook only applies to changes seen in the indexing process, not
changes when e.g. moving messages within mu4e.")
(defun mu4e-info-handler (info)
"Handler function for (:info ...) sexps received from the server
@ -540,14 +548,16 @@ process."
((eq type 'index)
(if (eq (plist-get info :status) 'running)
(mu4e-message "Indexing... processed %d, updated %d"
(plist-get info :processed) (plist-get info :updated))
(mu4e-message
"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))
(progn
(mu4e-message
"Indexing completed; processed %d, updated %d, cleaned-up %d"
(plist-get info :processed) (plist-get info :updated)
(plist-get info :cleaned-up))
(unless (zerop (plist-get info :updated))
(run-hooks 'mu4e-index-updated-hook)))))
((plist-get info :message)
(mu4e-message "%s" (plist-get info :message))))))
(defun mu4e-error-handler (errcode errmsg)
"Handler function for showing an error."