[gnus git] branch no-gnus updated: m0-1-51-g97ec3d4 =1= (nnml-request-compact-group): Delete the marks file after compaction

       via  97ec3d4fa22996b57cf93ae65bb6854e08421be9 (commit)
      from  58481ec7113c8d83cc3d48da88b85131ea1b9f88 (commit)


- Log -----------------------------------------------------------------
commit 97ec3d4fa22996b57cf93ae65bb6854e08421be9
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Feb 12 21:54:19 2012 +0100

    (nnml-request-compact-group): Delete the marks file after compaction
    
    bug#10800

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00e53e1..761184e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-12  Lars Ingebrigtsen  <[email protected]>
 
+	* nnml.el (nnml-request-compact-group): Delete the marks file after
+	compaction (bug#10800).
+
 	* gnus-art.el (gnus-stop-downloads): Stop `url-queue' downloads on
 	group exit.
 
diff --git a/lisp/nnml.el b/lisp/nnml.el
index acb23ed..b865260 100644
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -1298,6 +1298,9 @@ Use the nov database for the current group if available."
 	  (nnml-save-nov)
 	  ;; b/ Save the active file:
 	  (nnmail-save-active nnml-group-alist nnml-active-file)
+	  (let ((marks (nnml-group-pathname group nnml-marks-file-name server)))
+	    (when (file-exists-p marks)
+	      (delete-file marks)))
 	  t)))))
 
 (defun nnml-request-compact (&optional server)

-----------------------------------------------------------------------
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/nnml.el   |    3 +++
 2 files changed, 6 insertions(+), 0 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, no-gnus has been updated


hooks/post-receive
-- 
Gnus Project