Mercurial > hg > xemacs-beta

diff lisp/gnus/dgnushack.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 4103f0995bd7
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/gnus/dgnushack.el	Mon Aug 13 08:51:58 2007 +0200
+++ b/lisp/gnus/dgnushack.el	Mon Aug 13 08:52:29 2007 +0200
@@ -47,6 +47,9 @@
     (fset 'x-defined-colors 'ignore)
     (fset 'read-color 'ignore)))
 
+(setq byte-compile-warnings
+      '(free-vars unresolved callargs redefine obsolete))
+
 (defun dgnushack-compile ()
   ;;(setq byte-compile-dynamic t)
   (let ((files (directory-files "." nil ".el$"))
@@ -57,13 +60,7 @@
 	(require 'w3-forms)
       (error (setq files (delete "nnweb.el" files))))
     (while (setq file (pop files))
-      (cond 
-       ((or (string= file "custom.el") (string= file "browse-url.el"))
-	(setq byte-compile-warnings nil))
-       (t
-	(setq byte-compile-warnings 
-	      '(free-vars unresolved callargs redefine obsolete))))
-      (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el" 
+      (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el"
 				    "messagexmas.el" "nnheaderxm.el"
 				    "smiley.el")))
 		xemacs)
@@ -76,5 +73,5 @@
   (require 'gnus)
   (byte-recompile-directory "." 0))
 
-;;; dgnushack.el ends here  
+;;; dgnushack.el ends here