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 d786d17f21e3cc157c9fa50c42d7ac248b35f766..352d189612992b061be59e64a311762f379b426c 100644 (file)
--- 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 8b2b7ade294974771ea4b06bceddd9f646e7285f..554381e2120ddded1c6c2bf58ad747a3e07014c4 100644 (file)
--- 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)