Dribble save cleanup

* gnus-start.el (gnus-dribble-save): Only save the dribble file if it's
not empty.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ef2034..35dd9a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-08-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-start.el (gnus-dribble-save): Only save the dribble file if it's
+       not empty.
+
        * nnrss.el (nnrss-discover-feed): Indent.
 
 2013-08-01  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e27fb52..9f3f469 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -944,7 +944,8 @@ If REGEXP is given, lines that match it will be deleted."
   (when (and gnus-dribble-buffer
             (buffer-name gnus-dribble-buffer))
     (with-current-buffer gnus-dribble-buffer
-      (save-buffer))))
+      (when (> (buffer-size) 0)
+       (save-buffer)))))
 
 (defun gnus-dribble-clear ()
   (when (gnus-buffer-exists-p gnus-dribble-buffer)