[gnus git] branch master updated: m0-7-188-ga827b33 =1= Dribble save cleanup
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via a827b33e3db35b1a13dadedebe1f1b76847f7f14 (commit)
from 30551c2da02b151317bdbe082722fc3b42a79a86 (commit)
- Log -----------------------------------------------------------------
commit a827b33e3db35b1a13dadedebe1f1b76847f7f14
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Thu Aug 1 16:22:35 2013 +0200
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
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2013-08-01 Lars Magne Ingebrigtsen <[email protected]>
+ * 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 <[email protected]>
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e27fb52..9f3f469 100644
--- 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)
-----------------------------------------------------------------------
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/gnus-start.el | 3 ++-
2 files changed, 5 insertions(+), 1 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