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

* mu4e/crypto: beginnings of crypto (verification, decryption) support. WIP!

Browse Source
This commit is contained in:
djcb
2012-08-01 17:07:11 +03:00
parent 00dcfaec26
commit 136d0f2875
4 changed files with 97 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
mu4e/mu4e-utils.el
View File

@ -629,17 +629,21 @@ FUNC (if non-nil) afterwards."
(mu4e-error "Emacs >= 23.x is required for mu4e"))
;; set up the 'pong' handler func
(lexical-let ((func func))
(setq mu4e-pong-func
(lambda (version doccount)
(unless (string= version mu4e-mu-version)
(mu4e-error "mu server has version %s, but we need %s"
version mu4e-mu-version))
(when func (funcall func))
(when (and mu4e-update-interval (null mu4e~update-timer))
(setq mu4e~update-timer
(run-at-time
0 mu4e-update-interval 'mu4e-update-mail)))
(mu4e-message "Started mu4e with %d message%s in store"
(setq mu4e-pong-func
(lambda (props)
(let ((version (plist-get props :version))
(doccount (plist-get props :doccount)))
(unless (string= version mu4e-mu-version)
(mu4e-error "mu server has version %s, but we need %s"
version mu4e-mu-version))
(when func (funcall func))
(when (and mu4e-update-interval (null mu4e~update-timer))
(setq mu4e~update-timer
(run-at-time
0 mu4e-update-interval 'mu4e-update-mail)))
(mu4e-message "Started mu4e with %d message%s in store"
doccount (if (= doccount 1) "" "s"))
;; save the props we got from the server
(setq mu4e~server-props props)))))
;; send the ping
(mu4e~proc-ping)