X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=94803800e0bd832f51bca55174954b0489261017;hp=084af884930ac28222db2305d7a5fb24f66c51af;hb=0b45b11c9157fc44fecdd1af19e909b340996694;hpb=18bbf240a7d1d74562f239166acf25e87f47f2af;ds=sidebyside

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 084af8849..94803800e 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))))