From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Tue, 10 Apr 2012 22:04:13 +0000 (+0200)
Subject: (gnus-clean-old-newsrc): Remove totally bogus `unexists' entries.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=1e58d9e439f41ed48797e98b15a5da2c0d16fefc

(gnus-clean-old-newsrc): Remove totally bogus `unexists' entries.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 274667f20..5a2d9b4de 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-04-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-start.el (gnus-clean-old-newsrc): Remove totally bogus
+	`unexists' entries.
+
 	* 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 44d4259bc..7b7018e63 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2299,6 +2299,12 @@ If FORCE is non-nil, the .newsrc file is read."
 
 (defun gnus-clean-old-newsrc (&optional force)
   (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)))))
     (when (or force
 	      (< (gnus-continuum-version gnus-newsrc-file-version)
 		 (gnus-continuum-version "Ma Gnus v0.03")))