[gnus git] branch master updated: m0-3-135-g1e58d9e =1= (gnus-clean-old-newsrc): Remove totally bogus `unexists' entries.
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 1e58d9e439f41ed48797e98b15a5da2c0d16fefc (commit)
from 7be59e2d779ab4dd96952024265e001018c00332 (commit)
- Log -----------------------------------------------------------------
commit 1e58d9e439f41ed48797e98b15a5da2c0d16fefc
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Wed Apr 11 00:04:13 2012 +0200
(gnus-clean-old-newsrc): Remove totally bogus `unexists' entries.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 274667f..5a2d9b4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2012-04-10 Lars Magne Ingebrigtsen <[email protected]>
+ * 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 44d4259..7b7018e 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")))
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 3 +++
lisp/gnus-start.el | 6 ++++++
2 files changed, 9 insertions(+), 0 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project