mirror of https://github.com/djcb/mu.git
* mu4e: tags (X-Keywords etc.) support in headers/view (thanks to Abdó Roig)
This commit is contained in:
parent
07890463a7
commit
82bfb55dd7
|
@ -363,6 +363,7 @@ if provided, or at the end of the buffer otherwise."
|
|||
(:human-date (mu4e~headers-human-date msg))
|
||||
(:flags (propertize (mu4e~headers-flags-str val)
|
||||
'help-echo (format "%S" val)))
|
||||
(:tags (propertize (mapconcat 'identity val ", ")))
|
||||
(:size (mu4e-display-size val))
|
||||
(t (mu4e-error "Unsupported header field (%S)" field))))
|
||||
(when str
|
||||
|
|
|
@ -522,6 +522,11 @@ headers)."
|
|||
:shortname "Subject"
|
||||
:help "Subject of the message"
|
||||
:sortable t))
|
||||
(:tags .
|
||||
( :name "Tags"
|
||||
:shortname "Tags"
|
||||
:help "Tags for the message"
|
||||
:sortable nil))
|
||||
(:to .
|
||||
( :name "To"
|
||||
:shortname "T"
|
||||
|
|
|
@ -50,7 +50,7 @@
|
|||
:group 'mu4e)
|
||||
|
||||
(defcustom mu4e-view-fields
|
||||
'(:from :to :cc :subject :flags :date :maildir :attachments :signature)
|
||||
'(:from :to :cc :subject :flags :date :maildir :tags :attachments :signature)
|
||||
"Header fields to display in the message view buffer. For the
|
||||
complete list of available headers, see `mu4e-header-info'."
|
||||
:type (list 'symbol)
|
||||
|
@ -155,7 +155,8 @@ plist."
|
|||
(:subject (mu4e~view-construct-header field fieldval))
|
||||
(:path (mu4e~view-construct-header field fieldval))
|
||||
(:maildir (mu4e~view-construct-header field fieldval))
|
||||
(:flags (mu4e~view-construct-flags-header fieldval))
|
||||
((:flags :tags) (mu4e~view-construct-flags-tags-header field fieldval))
|
||||
|
||||
;; contact fields
|
||||
(:to (mu4e~view-construct-contacts-header msg field))
|
||||
(:from (mu4e~view-construct-contacts-header msg field))
|
||||
|
@ -321,15 +322,18 @@ at POINT, or if nil, at (point)."
|
|||
(mu4e-message-field msg field) ", ") t))
|
||||
|
||||
|
||||
(defun mu4e~view-construct-flags-header (flags)
|
||||
(defun mu4e~view-construct-flags-tags-header (field val)
|
||||
"Construct a Flags: header."
|
||||
(mu4e~view-construct-header
|
||||
:flags
|
||||
field
|
||||
(mapconcat
|
||||
(lambda (flag)
|
||||
(propertize (symbol-name flag)
|
||||
(propertize
|
||||
(if (symbolp flag)
|
||||
(symbol-name flag)
|
||||
flag)
|
||||
'face 'mu4e-view-special-header-value-face))
|
||||
flags
|
||||
val
|
||||
(propertize ", " 'face 'mu4e-view-header-value-face)) t))
|
||||
|
||||
(defun mu4e~view-construct-signature-header (msg)
|
||||
|
|
Loading…
Reference in New Issue