mirror of https://github.com/djcb/mu.git
mu4e: Show 'related' messages with mu4e-related-face
And tweak some of the modeline labels.
This commit is contained in:
parent
ccdc45c4fa
commit
cdd0256664
|
@ -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.")
|
"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.")
|
"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.")
|
"Non-fancy and fancy labels for include-related search in the mode-line.")
|
||||||
|
|
||||||
;;;; Various
|
;;;; Various
|
||||||
|
@ -632,8 +632,10 @@ space propertized with a 'display text property which expands to
|
||||||
|
|
||||||
(defsubst mu4e~headers-apply-flags (msg fieldval)
|
(defsubst mu4e~headers-apply-flags (msg fieldval)
|
||||||
"Adjust LINE's face property based on FLAGS."
|
"Adjust LINE's face property based on FLAGS."
|
||||||
(let* ((flags (mu4e-message-field msg :flags))
|
(let* ((flags (plist-get msg :flags))
|
||||||
(face (cond
|
(meta (plist-get msg :meta))
|
||||||
|
(face (cond
|
||||||
|
((plist-get meta :related) 'mu4e-related-face)
|
||||||
((memq 'trashed flags) 'mu4e-trashed-face)
|
((memq 'trashed flags) 'mu4e-trashed-face)
|
||||||
((memq 'draft flags) 'mu4e-draft-face)
|
((memq 'draft flags) 'mu4e-draft-face)
|
||||||
((or (memq 'unread flags) (memq 'new flags))
|
((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 'flagged flags) 'mu4e-flagged-face)
|
||||||
((memq 'replied flags) 'mu4e-replied-face)
|
((memq 'replied flags) 'mu4e-replied-face)
|
||||||
((memq 'passed flags) 'mu4e-forwarded-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)
|
(add-face-text-property 0 (length fieldval) face t fieldval)
|
||||||
fieldval))
|
fieldval))
|
||||||
|
|
||||||
|
|
|
@ -87,12 +87,12 @@ I.e. a message with the draft flag set."
|
||||||
:group 'mu4e-faces)
|
:group 'mu4e-faces)
|
||||||
|
|
||||||
(defface mu4e-replied-face
|
(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."
|
"Face for a replied message header."
|
||||||
:group 'mu4e-faces)
|
:group 'mu4e-faces)
|
||||||
|
|
||||||
(defface mu4e-forwarded-face
|
(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."
|
"Face for a passed (forwarded) message header."
|
||||||
:group 'mu4e-faces)
|
:group 'mu4e-faces)
|
||||||
|
|
||||||
|
@ -101,6 +101,10 @@ I.e. a message with the draft flag set."
|
||||||
"Face for a header without any special flags."
|
"Face for a header without any special flags."
|
||||||
:group 'mu4e-faces)
|
: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
|
(defface mu4e-header-title-face
|
||||||
'((t :inherit font-lock-type-face))
|
'((t :inherit font-lock-type-face))
|
||||||
"Face for a header title in the headers view."
|
"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
|
a limited set of message fields: only the ones used in the
|
||||||
header-view, not including, for instance, the message body.")
|
header-view, not including, for instance, the message body.")
|
||||||
|
|
||||||
;;; Run-time variables / constants
|
|
||||||
|
|
||||||
;;;; Main
|
|
||||||
|
|
||||||
;;;; Other
|
|
||||||
|
|
||||||
;;; Internals
|
;;; Internals
|
||||||
|
|
||||||
(defvar mu4e~headers-view-win nil
|
(defvar mu4e~headers-view-win nil
|
||||||
|
|
Loading…
Reference in New Issue