From 4cf00b8c156d96fc05b5447d618c24ecdb14d640 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 7 Jul 2014 05:47:59 +0000 Subject: [PATCH] lisp/gnus/gnus-start.el (gnus-dribble-read-file): Don't stop auto-saving --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/gnus-start.el | 5 +++++ 2 files changed, 11 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7589d1505d7..e3c978331ec 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2014-07-07 Katsumi Yamaoka + + * gnus-start.el (gnus-dribble-read-file): Don't stop the auto-saving of + the dribble buffer even when it is shrunk a lot. + + 2014-06-26 Glenn Morris * mm-util.el (help-function-arglist): Remove outdated declaration. diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index b79b96e4fc1..766e7c26ac4 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -889,6 +889,11 @@ If REGEXP is given, lines that match it will be deleted." (setq buffer-save-without-query t) (erase-buffer) (setq buffer-file-name dribble-file) + ;; The buffer may be shrunk a lot when deleting old entries. + ;; It caused the auto-saving to stop. + (if (featurep 'emacs) + (set (make-local-variable 'auto-save-include-big-deletions) t) + (set (make-local-variable 'disable-auto-save-when-buffer-shrinks) nil)) (auto-save-mode t) (buffer-disable-undo) (bury-buffer (current-buffer)) -- 2.39.2