From 967c61bfe3abfe65cf299756a571805924075f5c Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 10 Jun 2012 21:30:07 +0200 Subject: [PATCH] * nnfolder.el (nnfolder-save-buffer): Delete old versions silently. It makes no sense to query the user about internal files. --- lisp/ChangeLog | 3 +++ lisp/nnfolder.el | 21 +++++++++++---------- 2 files changed, 14 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 88cdccaa3..2a65e18d4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2012-06-10 Lars Magne Ingebrigtsen + * 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 0245ff844..e93bd7f43 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -1059,16 +1059,17 @@ This command does not work if you use short group names." (defun nnfolder-save-buffer () "Save the buffer." - (when (buffer-modified-p) - (run-hooks 'nnfolder-save-buffer-hook) - (gnus-make-directory (file-name-directory (buffer-file-name))) - (let ((coding-system-for-write - (or nnfolder-file-coding-system-for-write - nnfolder-file-coding-system))) - (set (make-local-variable 'copyright-update) nil) - (save-buffer))) - (unless (or gnus-nov-is-evil nnfolder-nov-is-evil) - (nnfolder-save-nov))) + (let ((delete-old-versions t)) + (when (buffer-modified-p) + (run-hooks 'nnfolder-save-buffer-hook) + (gnus-make-directory (file-name-directory (buffer-file-name))) + (let ((coding-system-for-write + (or nnfolder-file-coding-system-for-write + nnfolder-file-coding-system))) + (set (make-local-variable 'copyright-update) nil) + (save-buffer))) + (unless (or gnus-nov-is-evil nnfolder-nov-is-evil) + (nnfolder-save-nov)))) (defun nnfolder-save-active (group-alist active-file) (let ((nnmail-active-file-coding-system -- 2.25.1