[Emacs-diffs] trunk r117480: lisp/gnus/gnus-start.el (gnus-dribble-read-file): Don't stop auto-saving

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 117480
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2014-07-07 05:47:59 +0000
message:
  lisp/gnus/gnus-start.el (gnus-dribble-read-file): Don't stop auto-saving
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-start.el        
gnusstart.el-20091113204419-o5vbwnq5f7feedwu-1136

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-06-26 06:55:15 +0000
+++ b/lisp/gnus/ChangeLog       2014-07-07 05:47:59 +0000
@@ -1,3 +1,9 @@
+2014-07-07  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-start.el (gnus-dribble-read-file): Don't stop the auto-saving of
+       the dribble buffer even when it is shrunk a lot.
+       <http://thread.gmane.org/gmane.emacs.gnus.user/16923>
+
 2014-06-26  Glenn Morris  <address@hidden>
 
        * mm-util.el (help-function-arglist): Remove outdated declaration.

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2014-03-23 23:13:36 +0000
+++ b/lisp/gnus/gnus-start.el   2014-07-07 05:47:59 +0000
@@ -889,6 +889,11 @@
       (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))