emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e-utils: minor

This commit is contained in:
djcb 2012-08-28 12:11:34 +03:00
parent 97196b9c54
commit 45ad1c4916
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mu4e/mu4e-utils.el
View File

@ -71,7 +71,8 @@ dir already existed, or has been created, nil otherwise."
"Like `message', but prefixed with mu4e. If we're waiting for "Like `message', but prefixed with mu4e. If we're waiting for
user-input, don't show anyhting." user-input, don't show anyhting."
(unless (waiting-for-user-input-p) (unless (waiting-for-user-input-p)
(message "%s" (apply 'mu4e-format frm args)))) (message "%s" (apply 'mu4e-format frm args))
nil))
(defun mu4e-error (frm &rest args) (defun mu4e-error (frm &rest args)
"Create [mu4e]-prefixed error based on format FRM and ARGS." "Create [mu4e]-prefixed error based on format FRM and ARGS."
@ -135,9 +136,10 @@ Function will return the cdr of the list element."
(find-if (find-if
(lambda (option) (eq response (string-to-char (car option)))) (lambda (option) (eq response (string-to-char (car option))))
options))) options)))
(unless chosen (mu4e-error "%S not found" response)) (if chosen
(cdr chosen))) (cdr chosen)
(mu4e-error "Unknown shortcut '%c'" response))))
(defun mu4e~get-maildirs-1 (path mdir) (defun mu4e~get-maildirs-1 (path mdir)
"Get maildirs under path, recursively, as a list of relative "Get maildirs under path, recursively, as a list of relative
@ -199,7 +201,7 @@ maildirs under `mu4e-maildir."
(ido-completing-read prompt (mu4e-get-maildirs)) (ido-completing-read prompt (mu4e-get-maildirs))
(or (car-safe (or (car-safe
(find-if (lambda (item) (= kar (cdr item))) mu4e-maildir-shortcuts)) (find-if (lambda (item) (= kar (cdr item))) mu4e-maildir-shortcuts))
(mu4e-error "Invalid shortcut '%c'" kar))))))) (mu4e-error "Unknown shortcut '%c'" kar)))))))
(defun mu4e-ask-maildir-check-exists (prompt) (defun mu4e-ask-maildir-check-exists (prompt)
@ -261,7 +263,7 @@ KAR, or raise an error if none is found."
mu4e-bookmarks))) mu4e-bookmarks)))
(if chosen-bm (if chosen-bm
(nth 0 chosen-bm) (nth 0 chosen-bm)
(mu4e-error "Invalid shortcut '%c'" kar)))) (mu4e-error "Unknown shortcut '%c'" kar))))
;;; converting flags->string and vice-versa ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; converting flags->string and vice-versa ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -385,7 +387,6 @@ function prefers the text part, but this can be changed by setting
(buffer-string)))) (buffer-string))))
(defun mu4e-display-manual () (defun mu4e-display-manual ()
"Display the mu4e manual page for the current mode, or go to the "Display the mu4e manual page for the current mode, or go to the
top level if there is none." top level if there is none."
@ -396,10 +397,8 @@ top level if there is none."
('mu4e-view-mode "(mu4e)Message view") ('mu4e-view-mode "(mu4e)Message view")
(t "mu4e")))) (t "mu4e"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun mu4e-msg-field (msg field) (defsubst mu4e-msg-field (msg field)
"Retrieve FIELD from message plist MSG. FIELD is one "Retrieve FIELD from message plist MSG. FIELD is one
of :from, :to, :cc, :bcc, :subject, :data, :message-id, :path, :maildir, of :from, :to, :cc, :bcc, :subject, :data, :message-id, :path, :maildir,
:priority, :attachments, :references, :in-reply-to, :body-txt, :body-html :priority, :attachments, :references, :in-reply-to, :body-txt, :body-html