Emacs mu4e: Maildir header field

This commit is contained in:
Marcel Kapfer 2018-03-09 12:15:45 +01:00
parent 5f318360b6
commit f8deabe15d
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

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