[gnus git] branch master updated: m0-7-171-g0b45b11 =1= * gnus-start.el (gnus-clean-old-newsrc): Always remove 'unexist' marks if `gnus-newsrc-file-version' does not match `gnus-version'. This fixes a bug in Emacs trunk where the 'unexist' marks were always removed at startup because "Gnus v5.13" was considered smaller than "Ma Gnus v0.03".

       via  0b45b11c9157fc44fecdd1af19e909b340996694 (commit)
      from  18bbf240a7d1d74562f239166acf25e87f47f2af (commit)


- Log -----------------------------------------------------------------
commit 0b45b11c9157fc44fecdd1af19e909b340996694
Author: David Engster <[email protected]>
Date:   Wed Jul 10 21:02:59 2013 +0200

    * gnus-start.el (gnus-clean-old-newsrc): Always remove 'unexist' marks
    if `gnus-newsrc-file-version' does not match `gnus-version'.  This
    fixes a bug in Emacs trunk where the 'unexist' marks were always
    removed at startup because "Gnus v5.13" was considered smaller than
    "Ma Gnus v0.03".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02628ca..e23d55a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2013-07-10  David Engster  <[email protected]>
+
+	* gnus-start.el (gnus-clean-old-newsrc): Always remove 'unexist' marks
+	if `gnus-newsrc-file-version' does not match `gnus-version'.  This
+	fixes a bug in Emacs trunk where the 'unexist' marks were always
+	removed at startup because "Gnus v5.13" was considered smaller than "Ma
+	Gnus v0.03".
+
 2013-07-10  Tassilo Horn  <[email protected]>
 
 	* gnus.el (gnus-summary-line-format): Reference
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 084af88..9480380 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2314,8 +2314,9 @@ If FORCE is non-nil, the .newsrc file is read."
 	  (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")))
+	      (not (string= gnus-newsrc-file-version gnus-version)))
+      (message (concat "Removing unexist marks because newsrc "
+		       "version does not match Gnus version."))
       ;; Remove old `exist' marks from old nnimap groups.
       (dolist (info (cdr gnus-newsrc-alist))
 	(let ((exist (assoc 'unexist (gnus-info-marks info))))

-----------------------------------------------------------------------
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     |    8 ++++++++
 lisp/gnus-start.el |    5 +++--
 2 files changed, 11 insertions(+), 2 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