lisp/ChangeLog addition:

2001-11-26  Didier Verna  <didier@xemacs.org>

	* gnus-start.el (gnus-check-first-time-used): only check for
	existence of .el[d] files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f9299e..2349413 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-26  Didier Verna  <didier@xemacs.org>
+
+       * gnus-start.el (gnus-check-first-time-used): only check for
+       existence of .el[d] files.
+
 2001-11-25 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-util.el (mm-coding-system-priorities): Add backslash in the doc.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index f6bcd45..01d5351 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1178,10 +1178,8 @@ for new groups, and subscribe the new groups as zombies."
   (catch 'ended
     ;; First check if any of the following files exist.  If they do,
     ;; it's not the first time the user has used Gnus.
-    (dolist (file (list gnus-current-startup-file
-                       (concat gnus-current-startup-file ".el")
+    (dolist (file (list (concat gnus-current-startup-file ".el")
                        (concat gnus-current-startup-file ".eld")
-                       gnus-startup-file
                        (concat gnus-startup-file ".el")
                        (concat gnus-startup-file ".eld")))
       (when (file-exists-p file)