X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=53ae6e1a8a8293f48296be81147ea8ef51a840b8;hb=d4dd9369331d9ed31774a944c2dd7c6741a685b3;hp=c4603b5897d48ab2018f637c407bbc8d45ca4421;hpb=b87fab928c326c645f132e25f4b30d61204e70eb;p=gnus

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index c4603b589..53ae6e1a8 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2297,10 +2297,11 @@ If FORCE is non-nil, the .newsrc file is read."
       (gnus-convert-old-newsrc)
       (gnus-clean-old-newsrc))))
 
-(defun gnus-clean-old-newsrc ()
+(defun gnus-clean-old-newsrc (&optional force)
   (when gnus-newsrc-file-version
-    (when (< (gnus-continuum-version gnus-newsrc-file-version)
-	     (gnus-continuum-version "Ma Gnus v0.03"))
+    (when (or force
+	      (< (gnus-continuum-version gnus-newsrc-file-version)
+		 (gnus-continuum-version "Ma Gnus v0.03")))
       ;; Remove old `exist' marks from old nnimap groups.
       (dolist (info (cdr gnus-newsrc-alist))
 	(let ((exist (assoc 'unexist (gnus-info-marks info))))