From: yamaoka <yamaoka>
Date: Sun, 12 Jan 2003 08:10:11 +0000 (+0000)
Subject: 2003-01-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
X-Git-Tag: t-gnus-6_15_11-00~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d8ed233963475451db2f0f808d5b370f74c4ecb3;p=elisp%2Fgnus.git-

2003-01-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>

	* lisp/gnus-start.el (gnus-read-newsrc-el-file): Make sure that
	the newsrc-alist is initialized properly.
---

diff --git a/ChangeLog b/ChangeLog
index aaf501a..5252c70 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* lisp/gnus-start.el (gnus-read-newsrc-el-file): Make sure that
+	the newsrc-alist is initialized properly.
+
 2003-01-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus.art.el (gnus-treat-predicate): Don't follow the Change
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e5576e3..ded65bb 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2190,20 +2190,20 @@ If FORCE is non-nil, the .newsrc file is read."
 ;;		    (< version 5.090009))
 ;;	    (setq gnus-format-specs gnus-default-format-specs)))
 	(when gnus-newsrc-assoc
-	  (setq gnus-newsrc-alist gnus-newsrc-assoc)))
-      (gnus-make-hashtable-from-newsrc-alist)
-      (when (file-newer-than-file-p file ding-file)
-	;; Old format quick file
-	(gnus-message 5 "Reading %s..." file)
-	;; The .el file is newer than the .eld file, so we read that one
-	;; as well.
-	(gnus-read-old-newsrc-el-file file)))
-    (when (and gnus-product-directory
-	       (file-directory-p gnus-product-directory))
-      (let ((list gnus-product-variable-file-list))
-	(while list
-	  (apply 'gnus-product-read-variable-file-1 (car list))
-	  (setq list (cdr list)))))))
+	  (setq gnus-newsrc-alist gnus-newsrc-assoc))))
+    (gnus-make-hashtable-from-newsrc-alist)
+    (when (file-newer-than-file-p file ding-file)
+      ;; Old format quick file
+      (gnus-message 5 "Reading %s..." file)
+      ;; The .el file is newer than the .eld file, so we read that one
+      ;; as well.
+      (gnus-read-old-newsrc-el-file file)))
+  (when (and gnus-product-directory
+	     (file-directory-p gnus-product-directory))
+    (let ((list gnus-product-variable-file-list))
+      (while list
+	(apply 'gnus-product-read-variable-file-1 (car list))
+	(setq list (cdr list))))))
 
 ;;(defun gnus-re-read-newsrc-el-file (file)
 ;;  "Attempt to re-read .newsrc.eld file.  Returns `nil' if successful.