emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: Show 'related' messages with mu4e-related-face 

And tweak some of the modeline labels.
This commit is contained in:
Dirk-Jan C. Binnema 2022-05-12 08:53:17 +03:00
parent ccdc45c4fa
commit cdd0256664
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-headers.el
View File

@ -243,11 +243,11 @@ Must have the same length as `mu4e-headers-thread-connection-prefix'.")
(defvar mu4e-headers-threaded-label '("T" . "🎄")
(defvar mu4e-headers-threaded-label '("T" . "Ⓣ")
"Non-fancy and fancy labels for threaded search in the mode-line.")
(defvar mu4e-headers-full-label '("F" . "∀")
(defvar mu4e-headers-full-label '("F" . "Ⓕ")
"Non-fancy and fancy labels for full search in the mode-line.")
(defvar mu4e-headers-related-label '("R" . "🤝")
(defvar mu4e-headers-related-label '("R" . "Ⓡ")
"Non-fancy and fancy labels for include-related search in the mode-line.")
;;;; Various
@ -632,8 +632,10 @@ space propertized with a 'display text property which expands to
(defsubst mu4e~headers-apply-flags (msg fieldval)
"Adjust LINE's face property based on FLAGS."
(let* ((flags (mu4e-message-field msg :flags))
(face (cond
(let* ((flags (plist-get msg :flags))
(meta (plist-get msg :meta))
(face (cond
((plist-get meta :related) 'mu4e-related-face)
((memq 'trashed flags) 'mu4e-trashed-face)
((memq 'draft flags) 'mu4e-draft-face)
((or (memq 'unread flags) (memq 'new flags))
@ -641,7 +643,7 @@ space propertized with a 'display text property which expands to
((memq 'flagged flags) 'mu4e-flagged-face)
((memq 'replied flags) 'mu4e-replied-face)
((memq 'passed flags) 'mu4e-forwarded-face)
(t 'mu4e-header-face))))
(t 'mu4e-header-face))))
(add-face-text-property 0 (length fieldval) face t fieldval)
fieldval))

14
mu4e/mu4e-vars.el
View File

@ -87,12 +87,12 @@ I.e. a message with the draft flag set."
:group 'mu4e-faces)
(defface mu4e-replied-face
'((t :inherit font-lock-builtin-face :weight normal))
'((t :inherit font-lock-builtin-face :weight normal :slant normal))
"Face for a replied message header."
:group 'mu4e-faces)
(defface mu4e-forwarded-face
'((t :inherit font-lock-builtin-face :weight normal))
'((t :inherit font-lock-builtin-face :weight normal :slant normal))
"Face for a passed (forwarded) message header."
:group 'mu4e-faces)
@ -101,6 +101,10 @@ I.e. a message with the draft flag set."
"Face for a header without any special flags."
:group 'mu4e-faces)
(defface mu4e-related-face
'((t :inherit default :slant italic))
"Face for a 'related' header." :group 'mu4e-faces)
(defface mu4e-header-title-face
'((t :inherit font-lock-type-face))
"Face for a header title in the headers view."
@ -344,12 +348,6 @@ Note that when using the gnus-based view, you only have access to
a limited set of message fields: only the ones used in the
header-view, not including, for instance, the message body.")
;;; Run-time variables / constants
;;;; Main
;;;; Other
;;; Internals
(defvar mu4e~headers-view-win nil