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