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

* emacs/: some minor mu4e fixes

Browse Source
This commit is contained in:
djcb
2011-12-14 09:13:10 +02:00
parent 0446ec3d83
commit 9633d8ee32
3 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
emacs/mu4e.el
View File

@ -339,13 +339,18 @@ server has the expected values."
(interactive)
(if (buffer-live-p mu4e-main-buffer-name)
(switch-to-buffer mu4e-main-buffer-name)
(setq mu4e-proc-pong-func
(lambda (version doccount)
(unless (string= version mu4e-mu-version)
(error "mu server has version %s, but we need %s"
version mu4e-mu-version))
(mu4e-main-view)))
(mu4e-proc-ping)))
(progn
;; explicit version checks are a bit questionable,
;; better to check for specific features
(when (< emacs-major-version 23)
(error "Emacs >= 23.x is required for mu4e"))
(setq mu4e-proc-pong-func
(lambda (version doccount)
(unless (string= version mu4e-mu-version)
(error "mu server has version %s, but we need %s"
version mu4e-mu-version))
(mu4e-main-view)))
(mu4e-proc-ping))))
(defun mu4e-ask-maildir (prompt)
"Ask the user for a shortcut (using PROMPT) as defined in
@ -410,7 +415,8 @@ old one first."
(defun mu4e-flags-to-string (flags)
"Remove duplicates and sort the output of `mu4e-flags-to-string-raw'."
(concat
(sort (remove-duplicates (append (mu4e-flags-to-string-raw flags) nil)) '>)))
(sort (remove-duplicates
(append (mu4e-flags-to-string-raw flags) nil)) '>)))
(defun mu4e-flags-to-string-raw (flags)
"Convert a list of flags into a string as seen in Maildir