[gnus git] branch master updated: m0-3-27-gd4dd936 =1= * gnus-start.el (gnus-clean-old-newsrc): Allow a FORCE parameter.

       via  d4dd9369331d9ed31774a944c2dd7c6741a685b3 (commit)
      from  b87fab928c326c645f132e25f4b30d61204e70eb (commit)


- Log -----------------------------------------------------------------
commit d4dd9369331d9ed31774a944c2dd7c6741a685b3
Author: Lars Ingebrigtsen <[email protected]>
Date:   Mon Feb 20 08:33:57 2012 +0100

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9dee64f..14c4b7e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-20  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-start.el (gnus-clean-old-newsrc): Allow a FORCE parameter.
+
 2012-02-19  Vida Gábor  <[email protected]>  (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
--- 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))))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    4 ++++
 lisp/gnus-start.el |    7 ++++---
 2 files changed, 8 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project