* gnus-start.el (gnus-clean-old-newsrc): Allow a FORCE parameter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9dee64f..14c4b7e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-20  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-start.el (gnus-clean-old-newsrc): Allow a FORCE parameter.
+
 2012-02-19  Vida Gábor  <vidagabor@gmail.com>  (tiny change)
 
        * gnus-demon.el (gnus-demon-init): Don't multiply time twice.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index c4603b5..53ae6e1 100644 (file)
--- 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))))