[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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".,
Katsumi Yamaoka <=