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

2
emacs/mu4e-hdrs.el
View File

@ -642,7 +642,7 @@ results."
(when (mu4e-ignore-marks) (when (mu4e-ignore-marks)
(mu4e-kill-proc) ;; hmmm... (mu4e-kill-proc) ;; hmmm...
(kill-buffer) (kill-buffer)
(mm))) (mu4e)))
(defun mu4e-rerun-search () (defun mu4e-rerun-search ()
"Rerun the search for the last search expression; if none exists, "Rerun the search for the last search expression; if none exists,

4
emacs/mu4e-main.el
View File

@ -47,7 +47,7 @@
(define-key map "u" 'mu4e-retrieve-mail-update-db) (define-key map "u" 'mu4e-retrieve-mail-update-db)
map) map)
"Keymap for the *mm* buffer.") "Keymap for the *mu4e-main* buffer.")
(fset 'mu4e-main-mode-map mu4e-main-mode-map) (fset 'mu4e-main-mode-map mu4e-main-mode-map)
(defun mu4e-main-mode () (defun mu4e-main-mode ()
@ -128,7 +128,7 @@
(if smtpmail-queue-mail (if smtpmail-queue-mail
"Outgoing mail will now be queued" "Outgoing mail will now be queued"
"Outgoing mail will now be sent directly")) "Outgoing mail will now be sent directly"))
(mm)) (mu4e))
(defun mu4e-quit-mm() (defun mu4e-quit-mm()

22
emacs/mu4e.el
View File

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