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