(gnus-clean-old-newsrc): Fix last checkin.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a2d9b4..9c8a9d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-start.el (gnus-clean-old-newsrc): Remove totally bogus
        `unexists' entries.
+       (gnus-clean-old-newsrc): Fix last checkin.
 
        * nnimap.el (nnimap-update-info): None of the articles below the active
        low-water mark exist.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 7b7018e..4a833e0 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2301,10 +2301,11 @@ If FORCE is non-nil, the .newsrc file is read."
   (when gnus-newsrc-file-version
     ;; Remove totally bogus `unexists' entries.  The name is
     ;; `unexist'.
-    (let ((exist (assoc 'unexists (gnus-info-marks info))))
-      (when exist
-       (gnus-info-set-marks
-        info (delete exist (gnus-info-marks info)))))
+    (dolist (info (cdr gnus-newsrc-alist))
+      (let ((exist (assoc 'unexists (gnus-info-marks info))))
+       (when exist
+         (gnus-info-set-marks
+          info (delete exist (gnus-info-marks info))))))
     (when (or force
              (< (gnus-continuum-version gnus-newsrc-file-version)
                 (gnus-continuum-version "Ma Gnus v0.03")))