[gnus git] branch master updated: m0-1-27-g0f663f5 =1= Remove `exist' marks that come from old Gnusae.

       via  0f663f5faac543d553b1e7c18f0e86073d04dd03 (commit)
      from  9f93f37d163bd50a270afdd1162099c74784ded6 (commit)


- Log -----------------------------------------------------------------
commit 0f663f5faac543d553b1e7c18f0e86073d04dd03
Author: Lars Ingebrigtsen <[email protected]>
Date:   Wed Feb 1 15:46:25 2012 +0100

    Remove `exist' marks that come from old Gnusae.
    
    This makes it possible to switch back and forth without losing track
    of nnimap `exist' information.
    
    * gnus-start.el (gnus-clean-old-newsrc): New function.
    (gnus-read-newsrc-file): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1a3ecb..17fe812 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-01  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-start.el (gnus-clean-old-newsrc): New function.
+	(gnus-read-newsrc-file): Use it.
+
 	* mm-archive.el (mm-dissect-archive): Use it to get all file names.
 	Use recursive deletion.
 	(mm-dissect-archive): Add support for zip files.
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 801f772..cfedeb1 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2303,7 +2303,19 @@ If FORCE is non-nil, the .newsrc file is read."
 	  (gnus-message 5 "Reading %s...done" newsrc-file)))
 
       ;; Convert old to new.
-      (gnus-convert-old-newsrc))))
+      (gnus-convert-old-newsrc)
+      (gnus-clean-old-newsrc))))
+
+(defun gnus-clean-old-newsrc ()
+  (when gnus-newsrc-file-version
+    (when (< (gnus-continuum-version gnus-newsrc-file-version)
+	     (gnus-continuum-version "Ma Gnus v0.02"))
+      ;; Remove old `exist' marks from old nnimap groups.
+      (dolist (info (cdr gnus-newsrc-alist))
+	(let ((exist (assoc 'exist (gnus-info-marks info))))
+	  (when exist
+	    (gnus-info-set-marks
+	     info (delete exist (gnus-info-marks info)))))))))
 
 (defun gnus-convert-old-newsrc ()
   "Convert old newsrc formats into the current format, if needed."

-----------------------------------------------------------------------
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     |    3 +++
 lisp/gnus-start.el |   14 +++++++++++++-
 2 files changed, 16 insertions(+), 1 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