From: Lars Ingebrigtsen Date: Mon, 20 Feb 2012 07:33:57 +0000 (+0100) Subject: * gnus-start.el (gnus-clean-old-newsrc): Allow a FORCE parameter. X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=d4dd9369331d9ed31774a944c2dd7c6741a685b3 * gnus-start.el (gnus-clean-old-newsrc): Allow a FORCE parameter. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9dee64fcf..14c4b7e6e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-02-20 Lars Ingebrigtsen + + * gnus-start.el (gnus-clean-old-newsrc): Allow a FORCE parameter. + 2012-02-19 Vida Gábor (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 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))))