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

mu4e: allow for displaying labels

Browse Source 
Basic support for displaying labels.
This commit is contained in:
Dirk-Jan C. Binnema
2025-08-26 18:52:04 +03:00
committed by Seth Ladygo
parent 5a6ca68846
commit e6371ff705
3 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mu4e/mu4e-headers.el
View File

@ -581,7 +581,7 @@ e.g. \"mutt\"."
(mu4e-msg-field msg :date)))) (mu4e-msg-field msg :date))))
(:flags (propertize (mu4e~headers-flags-str val) (:flags (propertize (mu4e~headers-flags-str val)
'help-echo (format "%S" val))) 'help-echo (format "%S" val)))
(:tags (propertize (mapconcat 'identity val ", "))) ((:labels :tags) (propertize (mapconcat 'identity val ", ")))
(:size (mu4e-display-size val)) (:size (mu4e-display-size val))
(t (mu4e~headers-custom-field-value msg field))))) (t (mu4e~headers-custom-field-value msg field)))))

5
mu4e/mu4e-vars.el
View File

@ -267,6 +267,11 @@ Foo\")."
:shortname "Maildir" :shortname "Maildir"
:help "Maildir for this message" :help "Maildir for this message"
:sortable t)) :sortable t))
(:labels
. (:name "Labels"
:shortname "Lbs"
:help "Labels for the message"
:sortable nil))
(:list (:list
. (:name "List-Id" . (:name "List-Id"
:shortname "List" :shortname "List"

12
mu4e/mu4e-view.el
View File

@ -823,12 +823,12 @@ Note that for some messages, this can trigger high CPU load."
(':mailing-list (':mailing-list
(let ((list (plist-get msg :list))) (let ((list (plist-get msg :list)))
(if list (mu4e-get-mailing-list-shortname list) ""))) (if list (mu4e-get-mailing-list-shortname list) "")))
((or ':flags ':tags) ((or ':flags ':labels ':tags)
(let ((flags (mapconcat (lambda (flag) (let ((items (mapconcat (lambda (item)
(if (symbolp flag) (if (symbolp item)
(symbol-name flag) (symbol-name item)
flag)) fieldval ", "))) item)) fieldval ", ")))
(mu4e--view-gnus-insert-header field flags))) (mu4e--view-gnus-insert-header field items)))
(':size (mu4e--view-gnus-insert-header (':size (mu4e--view-gnus-insert-header
field (mu4e-display-size fieldval))) field (mu4e-display-size fieldval)))
((or ':subject ':to ':from ':cc ':bcc ':from-or-to ((or ':subject ':to ':from ':cc ':bcc ':from-or-to