[gnus git] branch master updated: m0-5-22-g967c61b =1= * nnfolder.el (nnfolder-save-buffer): Delete old versions silently.

       via  967c61bfe3abfe65cf299756a571805924075f5c (commit)
      from  935af32fa5a3d22163b9b626d770f5c16a766837 (commit)


- Log -----------------------------------------------------------------
commit 967c61bfe3abfe65cf299756a571805924075f5c
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jun 10 21:30:07 2012 +0200

    * nnfolder.el (nnfolder-save-buffer): Delete old versions silently.
    
    It makes no sense to query the user about internal files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88cdcca..2a65e18 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-06-10  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* nnfolder.el (nnfolder-save-buffer): Delete old versions silently.  It
+	makes no sense to query the user about internal files.
+
 	* gnus-spec.el: Remove all the byte-compilation stuff, since
 	benchmarking shows that it doesn't help when entering large summary
 	buffers.
diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 0245ff8..e93bd7f 100644
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -1059,6 +1059,7 @@ This command does not work if you use short group names."
 
 (defun nnfolder-save-buffer ()
   "Save the buffer."
+  (let ((delete-old-versions t))
   (when (buffer-modified-p)
     (run-hooks 'nnfolder-save-buffer-hook)
     (gnus-make-directory (file-name-directory (buffer-file-name)))
@@ -1068,7 +1069,7 @@ This command does not work if you use short group names."
       (set (make-local-variable 'copyright-update) nil)
       (save-buffer)))
   (unless (or gnus-nov-is-evil nnfolder-nov-is-evil)
-    (nnfolder-save-nov)))
+      (nnfolder-save-nov))))
 
 (defun nnfolder-save-active (group-alist active-file)
   (let ((nnmail-active-file-coding-system

-----------------------------------------------------------------------
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/nnfolder.el |   21 +++++++++++----------
 2 files changed, 14 insertions(+), 10 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