(gnus-setup-news): Update all format specs just before `gnus-setup-news-hook'

is evaluated.
(gnus-setup-news-hook): Default to `gnus-compile'.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 13f3423..5fd167f 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -354,7 +354,7 @@ This hook is called as the first thing when Gnus is started."
   :group 'gnus-start
   :type 'hook)
 
-(defcustom gnus-setup-news-hook nil
+(defcustom gnus-setup-news-hook '(gnus-compile)
   "A hook after reading the .newsrc file, but before generating the buffer."
   :group 'gnus-start
   :type 'hook)
@@ -914,7 +914,12 @@ If LEVEL is non-nil, the news will be set up at level LEVEL."
     (when (and init gnus-slave)
       (gnus-dribble-clear))
 
-    (gnus-update-format-specifications)
+    (gnus-update-format-specifications nil
+                                      'article-mode
+                                      'group
+                                      'group-mode
+                                      'summary
+                                      'summary-mode)
 
     ;; See whether we need to read the description file.
     (when (and (boundp 'gnus-group-line-format)