diff options
| author | David Engster <deng@randomsample.de> | 2013-07-10 22:17:07 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-07-10 22:17:07 +0000 |
| commit | 3d70c5cfa9aae030c5ab8e8e612319a6645cf659 (patch) | |
| tree | a61746136f8c66c700575271ee16e08a7bced8b2 /lisp/gnus/gnus-start.el | |
| parent | 4647c173e516a76fe89def783fd156a88aa4ee03 (diff) | |
| download | emacs-3d70c5cfa9aae030c5ab8e8e612319a6645cf659.tar.gz | |
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".
Diffstat (limited to 'lisp/gnus/gnus-start.el')
| -rw-r--r-- | lisp/gnus/gnus-start.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 084af884930..94803800e0b 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/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)))) |