From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 1 Dec 2021 13:10:19 +0000 (+0100)
Subject: Enable gnus-treat-fold-headers by default
X-Git-Tag: emacs-29.0.90~3632^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3bc0768e9b82feaf5ce1665227055e97e72af164;p=emacs.git

Enable gnus-treat-fold-headers by default

* lisp/gnus/gnus-art.el (gnus-treat-fold-headers): Change default
to `head'.
---

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)