diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el
index d43cb15e..a3f93b0e 100644
--- a/mu4e/mu4e-headers.el
+++ b/mu4e/mu4e-headers.el
@@ -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))
 
diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el
index 3a43b870..d4f3b80c 100644
--- a/mu4e/mu4e-vars.el
+++ b/mu4e/mu4e-vars.el
@@ -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