From 3bc0768e9b82feaf5ce1665227055e97e72af164 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 1 Dec 2021 14:10:19 +0100 Subject: [PATCH] Enable gnus-treat-fold-headers by default * lisp/gnus/gnus-art.el (gnus-treat-fold-headers): Change default to `head'. --- etc/NEWS | 3 +++ lisp/gnus/gnus-art.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index d786d17f21e..352d1896129 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -373,6 +373,9 @@ following in your .gnus file: (set-face-attribute 'gnus-header nil :inherit 'unspecified) +--- +*** The default value of 'gnus-treat-fold-headers' is now 'head'. + --- *** New face 'gnus-header'. All other 'gnus-header-*' faces inherit from this face now. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 8b2b7ade294..554381e2120 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1383,11 +1383,11 @@ This variable has no effect if `gnus-treat-unfold-headers' is nil." (const :tag "all" t) (regexp))) -(defcustom gnus-treat-fold-headers nil +(defcustom gnus-treat-fold-headers 'head "Fold headers. Valid values are nil, t, `head', `first', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles'." - :version "22.1" + :version "29.1" :group 'gnus-article-treat :link '(custom-manual "(gnus)Customizing Articles") :type gnus-article-treat-custom) -- 2.39.5