2006-04-22 Lars Magne Ingebrigtsen <larsi@gnus.org>

	* gnus-util.el (gnus-byte-compile): Use it.

2006-04-22  xyblor  <fake@invalid.email>  (Tiny change.)

	* gnus-util.el (kill-empty-logs): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e342c82..139a07e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2006-04-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-util.el (gnus-byte-compile): Use it.
+
+2006-04-22  xyblor  <fake@invalid.email>  (Tiny change.)
+
+       * gnus-util.el (kill-empty-logs): New function.
+
 2006-04-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-mail-alias-type): Doc fix.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 11bff31..c0fbcb4 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1221,6 +1221,12 @@ is run."
   :version "22.1"
   :group 'gnus-various)
 
+(defun kill-empty-logs ()
+  (dolist (buf (list (get-buffer "*Compile-Log*")
+                    (get-buffer "*Compile-Log-Show*")))
+    (if (and buf (= (buffer-size buf) 0))
+       (kill-buffer buf))))
+
 (defun gnus-byte-compile (form)
   "Byte-compile FORM if `gnus-use-byte-compile' is non-nil."
   (if gnus-use-byte-compile
@@ -1233,7 +1239,9 @@ is run."
        (defalias 'gnus-byte-compile
          (lambda (form)
            (let ((byte-compile-warnings '(unresolved callargs redefine)))
-             (byte-compile form))))
+             (prog1
+                 (byte-compile form)
+               (kill-empty-logs)))))
        (gnus-byte-compile form))
     form))