From: yamaoka <yamaoka>
Date: Thu, 9 Mar 2000 03:10:42 +0000 (+0000)
Subject: (gnus-setup-news): Update all format specs just before `gnus-setup-news-hook'
X-Git-Tag: t-gnus-6_14_1-13~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=047c7fab242eae530326838e1c92235f5f646738;p=elisp%2Fgnus.git-

(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
--- 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)