From 375e684ce6650419020f5196ae98e160a0cbfcbe Mon Sep 17 00:00:00 2001 From: Nicholas Vollmer Date: Thu, 31 Aug 2023 10:51:06 -0400 Subject: [PATCH] mu4e: propertize thread prefix characters Brings visual consistency to unfolded threads. --- mu4e/mu4e-headers.el | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index 425760b6..062869ee 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -329,17 +329,19 @@ into a string." (let ((get-prefix (lambda (cell) (if mu4e-use-fancy-chars (cdr cell) (car cell))))) - (cl-case type - (child (funcall get-prefix mu4e-headers-thread-child-prefix)) - (first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix)) - (last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix)) - (connection (funcall get-prefix mu4e-headers-thread-connection-prefix)) - (blank (funcall get-prefix mu4e-headers-thread-blank-prefix)) - (orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix)) - (single-orphan (funcall get-prefix - mu4e-headers-thread-single-orphan-prefix)) - (duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix)) - (t "?")))) + (propertize + (cl-case type + (child (funcall get-prefix mu4e-headers-thread-child-prefix)) + (first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix)) + (last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix)) + (connection (funcall get-prefix mu4e-headers-thread-connection-prefix)) + (blank (funcall get-prefix mu4e-headers-thread-blank-prefix)) + (orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix)) + (single-orphan (funcall get-prefix + mu4e-headers-thread-single-orphan-prefix)) + (duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix)) + (t "?")) + 'face 'mu4e-thread-fold-face))) ;; headers in the buffer are prefixed by an invisible string with the docid