From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Mon, 26 Jun 2006 11:59:44 +0000 (+0000)
Subject: (kill-empty-logs, gnus-byte-compile): Remove anonymous
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=364490d7474996063df4b5fb520f06f21b7d6634;p=gnus

(kill-empty-logs, gnus-byte-compile): Remove anonymous
2006-04-22 contribution.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11efb0370..b0c625be3 100644
--- 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 3167d367c..982ed15bb 100644
--- 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))