X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fdgnushack.el;h=d471ad6bab74c7b59bd14f3101d5e55aef6052bc;hb=b28454eed83f245c4160228b076134ce930b320a;hp=3caa01948ae6d84e9087b5219171b493bb9407b1;hpb=d49c9aab7fdcca8dee6c65ac78ae7c775b13cf67;p=gnus

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 3caa01948..d471ad6ba 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -47,6 +47,9 @@
     (fset 'x-defined-colors 'ignore)
     (fset 'read-color 'ignore)))
 
+(setq byte-compile-warnings
+      '(free-vars unresolved callargs redefine))
+
 (defun dgnushack-compile ()
   ;;(setq byte-compile-dynamic t)
   (let ((files (directory-files "." nil ".el$"))
@@ -57,16 +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))
-       (xemacs
-	(setq byte-compile-warnings 
-	      '(free-vars unresolved callargs redefine)))
-       (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)
@@ -79,5 +73,5 @@
   (require 'gnus)
   (byte-recompile-directory "." 0))
 
-;;; dgnushack.el ends here  
+;;; dgnushack.el ends here