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

* revert "mu4e: add custom variable for list of visible flags to display in headers view"

Browse Source 
This reverts commit 9944a4fd62.
This commit is contained in:
djcb
2013-02-27 19:09:11 +02:00
parent 5915f025a2
commit d39bf269fe
1 changed files with 19 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
mu4e/mu4e-headers.el
View File

@ -127,25 +127,6 @@ sent messages into message threads."
:type 'boolean :type 'boolean
:group 'mu4e-headers) :group 'mu4e-headers)
(defcustom mu4e-headers-visible-flags
'('draft 'flagged 'new 'passed 'replied 'seen 'trashed 'attach 'encrypted 'signed 'unread)
"An ordered list of flags to show in the headers buffer. Each
element is a symbol in the list (DRAFT FLAGGED NEW PASSED
REPLIED SEEN TRASHED ATTACH ENCRYPTED SIGNED UNREAD)."
:type '(set
(const :tag "Draft" 'draft)
(const :tag "Flagged" 'flagged)
(const :tag "New" 'new)
(const :tag "Passed" 'passed)
(const :tag "Replied" 'replied)
(const :tag "Seen" 'seen)
(const :tag "Trashed" 'trashed)
(const :tag "Attach" 'attach)
(const :tag "Encrypted" 'encrypted)
(const :tag "Signed" 'signed)
(const :tag "Unread" 'unread))
:group 'mu4e-headers)
;; marks for headers of the form; each is a cons-cell (basic . fancy) ;; marks for headers of the form; each is a cons-cell (basic . fancy)
;; each of which is basic ascii char and something fancy, respectively ;; each of which is basic ascii char and something fancy, respectively
(defvar mu4e-headers-draft-mark (purecopy '("D" . "⚒")) "Draft.") (defvar mu4e-headers-draft-mark (purecopy '("D" . "⚒")) "Draft.")
@ -341,26 +322,25 @@ Note that `mu4e-flags-to-string' is for internal use only; this
function is for display. (This difference is significant, since function is for display. (This difference is significant, since
internally, the Maildir spec determines what the flags look like, internally, the Maildir spec determines what the flags look like,
while our display may be different)." while our display may be different)."
(let ((str "") (let ((str)
(get-prefix (get-prefix
(lambda (cell) (if mu4e-use-fancy-chars (cdr cell) (car cell))))) (lambda (cell) (if mu4e-use-fancy-chars (cdr cell) (car cell)))))
(dolist (flag mu4e-headers-visible-flags) (dolist (flag flags)
(when (member flag flags) (setq str
(setq str (concat str
(concat str (case flag
(case flag ('draft (funcall get-prefix mu4e-headers-draft-mark))
('draft (funcall get-prefix mu4e-headers-draft-mark)) ('flagged (funcall get-prefix mu4e-headers-flagged-mark))
('flagged (funcall get-prefix mu4e-headers-flagged-mark)) ('new (funcall get-prefix mu4e-headers-new-mark))
('new (funcall get-prefix mu4e-headers-new-mark)) ('passed (funcall get-prefix mu4e-headers-passed-mark))
('passed (funcall get-prefix mu4e-headers-passed-mark)) ('replied (funcall get-prefix mu4e-headers-replied-mark))
('replied (funcall get-prefix mu4e-headers-replied-mark)) ('seen (funcall get-prefix mu4e-headers-seen-mark))
('seen (funcall get-prefix mu4e-headers-seen-mark)) ('trashed (funcall get-prefix mu4e-headers-trashed-mark))
('trashed (funcall get-prefix mu4e-headers-trashed-mark)) ('attach (funcall get-prefix mu4e-headers-attach-mark))
('attach (funcall get-prefix mu4e-headers-attach-mark)) ('encrypted (funcall get-prefix mu4e-headers-encrypted-mark))
('encrypted (funcall get-prefix mu4e-headers-encrypted-mark)) ('signed (funcall get-prefix mu4e-headers-signed-mark))
('signed (funcall get-prefix mu4e-headers-signed-mark)) ('unread (funcall get-prefix mu4e-headers-unread-mark))))))
('unread (funcall get-prefix mu4e-headers-unread-mark))))))) str))
str))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;