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

* cosmetic

This commit is contained in:
djcb 2012-08-27 18:05:31 +03:00
parent 9c493a017a
commit f1b1abd334
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mu4e/mu4e-utils.el
View File

@ -137,7 +137,7 @@ Function will return the cdr of the list element."
options))) options)))
(unless chosen (mu4e-error "%S not found" response)) (unless chosen (mu4e-error "%S not found" response))
(cdr chosen))) (cdr chosen)))
(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
@ -151,7 +151,7 @@ paths."
(dolist (dentry dentries) (dolist (dentry dentries)
(when (and (booleanp (cadr dentry)) (cadr dentry)) (when (and (booleanp (cadr dentry)) (cadr dentry))
(if (file-accessible-directory-p (if (file-accessible-directory-p
(concat mu4e-maildir "/" mdir "/" (car dentry) "/cur")) (concat mu4e-maildir "/" mdir "/" (car dentry) "/cur"))
(setq dirs (cons (concat mdir (car dentry)) dirs)) (setq dirs (cons (concat mdir (car dentry)) dirs))
(setq dirs (append dirs (mu4e~get-maildirs-1 path (setq dirs (append dirs (mu4e~get-maildirs-1 path
(concat mdir (car dentry) "/"))))))) (concat mdir (car dentry) "/")))))))
@ -166,8 +166,8 @@ done in `mu4e-get-maildirs-1'. Note, these results are /cached/, so
the list of maildirs will not change until you restart mu4e." the list of maildirs will not change until you restart mu4e."
(unless mu4e-maildir (mu4e-error "`mu4e-maildir' is not defined")) (unless mu4e-maildir (mu4e-error "`mu4e-maildir' is not defined"))
(unless mu4e~maildir-list (unless mu4e~maildir-list
(setq mu4e~maildir-list (setq mu4e~maildir-list
(sort (sort
(append (append
(when (file-accessible-directory-p (concat mu4e-maildir "/cur")) '("/")) (when (file-accessible-directory-p (concat mu4e-maildir "/cur")) '("/"))
(mu4e~get-maildirs-1 mu4e-maildir "/")) (mu4e~get-maildirs-1 mu4e-maildir "/"))
@ -295,7 +295,6 @@ Also see `mu4e-flags-to-string'.
(sort (remove-duplicates (sort (remove-duplicates
(append (mu4e~flags-to-string-raw flags) nil)) '>))) (append (mu4e~flags-to-string-raw flags) nil)) '>)))
(defun mu4e~string-to-flags-1 (str) (defun mu4e~string-to-flags-1 (str)
"Convert a string with message flags as seen in Maildir "Convert a string with message flags as seen in Maildir
messages into a list of flags in; flags are symbols draft, messages into a list of flags in; flags are symbols draft,
@ -317,7 +316,7 @@ Also see `mu4e-flags-to-string'.
(mu4e~string-to-flags-1 (substring str 1)))))) (mu4e~string-to-flags-1 (substring str 1))))))
(defun mu4e-string-to-flags (str) (defun mu4e-string-to-flags (str)
" Convert a string with message flags as seen in Maildir messages "Convert a string with message flags as seen in Maildir messages
into a list of flags in; flags are symbols draft, flagged, new, into a list of flags in; flags are symbols draft, flagged, new,
passed, replied, seen, trashed and the string is the concatenation passed, replied, seen, trashed and the string is the concatenation
of the uppercased first letters of these flags, as per [1]. Other of the uppercased first letters of these flags, as per [1]. Other

4
mu4e/mu4e-view.el
View File

@ -362,9 +362,9 @@ is nil, and otherwise open it."
(defun mu4e~view-construct-attachments-header (msg) (defun mu4e~view-construct-attachments-header (msg)
"Display attachment information; the field looks like something like: "Display attachment information; the field looks like something like:
:parts ((:index 1 :name \"test123.doc\" :parts ((:index 1 :name \"test123.doc\"
:mime-type \"application/msword\" :attachment t :size 1234) :mime-type \"application/msword\" :attachment t :size 1234)
(:index 2 :name \"test456.pdf\" (:index 2 :name \"test456.pdf\"
:mime-type \"application/pdf\" :attachment t :size 12234))." :mime-type \"application/pdf\" :attachment t :size 12234))."
(setq mu4e~view-attach-map ;; buffer local (setq mu4e~view-attach-map ;; buffer local
(make-hash-table :size 64 :weakness nil)) (make-hash-table :size 64 :weakness nil))
(let* ((id 0) (let* ((id 0)