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

mu4e-thread: add mu4e-thread-fold-single-children

Browse Source 
Allow for customizing the folding of single children.
This commit is contained in:
Dirk-Jan C. Binnema
2023-04-23 11:08:26 +03:00
parent a81b540f66
commit 0fdc64ad1a
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mu4e/mu4e-thread.el
View File

@ -52,6 +52,13 @@
:type 'boolean :type 'boolean
:group 'mu4e-headers) :group 'mu4e-headers)
(defcustom mu4e-thread-fold-single-children nil
"If set to t fold even if there is only a single child.
Otherwise, do not not fold single children since would simply
hide the single child."
:type 'number
:group 'mu4e-headers)
(defface mu4e-thread-fold-face (defface mu4e-thread-fold-face
`((t :inherit mu4e-highlight-face)) `((t :inherit mu4e-highlight-face))
"Face for the information line of a folded thread." "Face for the information line of a folded thread."
@ -250,7 +257,7 @@ Reset individual folding states."
(mu4e-thread--save-state 'folded)) (mu4e-thread--save-state 'folded))
(let ((child-count (count-lines fold-beg fold-end)) (let ((child-count (count-lines fold-beg fold-end))
(unread-count (if mu4e-thread-fold-unread unread-count 0))) (unread-count (if mu4e-thread-fold-unread unread-count 0)))
(when (> child-count 1) (when (> child-count (if mu4e-thread-fold-single-children 0 1))
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(overlay (make-overlay fold-beg fold-end)) (overlay (make-overlay fold-beg fold-end))
(info (mu4e-thread-fold-info child-count unread-count))) (info (mu4e-thread-fold-info child-count unread-count)))