emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r113362: gnus-start.el (gnus-clean-old-newsrc): Alwa


From: Katsumi Yamaoka
Subject: [Emacs-diffs] trunk r113362: 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".
Date: Wed, 10 Jul 2013 22:17:12 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 113362
revision-id: address@hidden
parent: address@hidden
author: David Engster <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-07-10 22:17:07 +0000
message:
  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".
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-start.el        
gnusstart.el-20091113204419-o5vbwnq5f7feedwu-1136
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-07-10 22:16:03 +0000
+++ b/lisp/gnus/ChangeLog       2013-07-10 22:17:07 +0000
@@ -1,3 +1,11 @@
+2013-07-10  David Engster  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus.el (gnus-summary-line-format): Reference

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2013-07-02 10:38:58 +0000
+++ b/lisp/gnus/gnus-start.el   2013-07-10 22:17:07 +0000
@@ -2314,8 +2314,9 @@
          (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))))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]