X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-start.el;h=53ae6e1a8a8293f48296be81147ea8ef51a840b8;hb=afbf528d6fb2fdb90f56a50212e46178b869a28b;hp=c4603b5897d48ab2018f637c407bbc8d45ca4421;hpb=dbe766e74ab0e0764730d3560b372e3d14b6393c;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))))