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

* cosmetic

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

3
mu4e/mu4e-utils.el
View File

@ -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)