(kill-empty-logs, gnus-byte-compile): Remove anonymous

2006-04-22 contribution.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11efb03..b0c625b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-26  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-util.el (kill-empty-logs, gnus-byte-compile): Remove anonymous
+       2006-04-22 contribution.
+
 2006-06-26  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
 
        * gnus.el (gnus-valid-select-methods): Revert last change for nnweb.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 3167d36..982ed15 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1223,12 +1223,6 @@ 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
@@ -1241,9 +1235,7 @@ is run."
        (defalias 'gnus-byte-compile
          (lambda (form)
            (let ((byte-compile-warnings '(unresolved callargs redefine)))
-             (prog1
-                 (byte-compile form)
-               (kill-empty-logs)))))
+             (byte-compile form))))
        (gnus-byte-compile form))
     form))