Emacs mu4e: Maildir header field
This commit is contained in:
parent
5f318360b6
commit
f8deabe15d
1 changed files with 14 additions and 0 deletions
|
@ -878,10 +878,24 @@
|
||||||
"kontakt@marcel-kapfer.de"
|
"kontakt@marcel-kapfer.de"
|
||||||
"opensource@mmk2410.org"))
|
"opensource@mmk2410.org"))
|
||||||
|
|
||||||
|
;; custom header field for maildir
|
||||||
|
(add-to-list 'mu4e-header-info-custom
|
||||||
|
'(:mdir . (:name "Maildir"
|
||||||
|
:shortname "Maildir"
|
||||||
|
:help "Maildir of current message"
|
||||||
|
:function (lambda (msg)
|
||||||
|
(or
|
||||||
|
(replace-regexp-in-string
|
||||||
|
"^/\\(.\\)[A-Za-z0-9]*"
|
||||||
|
"\\1"
|
||||||
|
(mu4e-message-field msg :maildir))
|
||||||
|
"")))))
|
||||||
|
|
||||||
;; customize mu4e list view
|
;; customize mu4e list view
|
||||||
(setq mu4e-headers-fields
|
(setq mu4e-headers-fields
|
||||||
'((:human-date . 20)
|
'((:human-date . 20)
|
||||||
(:flags . 6)
|
(:flags . 6)
|
||||||
|
(:mdir . 15)
|
||||||
(:mailing-list . 15)
|
(:mailing-list . 15)
|
||||||
(:from-or-to . 22)
|
(:from-or-to . 22)
|
||||||
(:subject . nil)))
|
(:subject . nil)))
|
||||||
|
|
Loading…
Reference in a new issue