X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fdgnushack.el;h=001af7583b818197d3c33ac49964d8ceebed9b03;hb=1a96d7bf660263f25557962103bc0ec2495d1d07;hp=99c67b9eb99f6a52e9da4f81527986cd28c1b6d8;hpb=3d1560b5319eae6c6921b9be7a7874fbbb54db6d;p=gnus

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 99c67b9eb..001af7583 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -27,15 +27,24 @@
 ;;; Code:
 
 (require 'cl)
-(setq load-path (cons "." load-path))
+(push "." load-path)
 
 (setq custom-file "/THIS FILE DOES NOT eXiST!")
 
+(defalias 'device-sound-enabled-p 'ignore)
+(defalias 'play-sound-file 'ignore)
+(defalias 'nndb-request-article 'ignore)
+(defalias 'efs-re-read-dir 'ignore)
+(defalias 'ange-ftp-re-read-dir 'ignore)
+
 (defun dgnushack-compile ()
   ;(setq byte-compile-dynamic t)
   (let ((files (directory-files "." nil ".el$"))
 	(xemacs (string-match "XEmacs" emacs-version))
 	byte-compile-warnings file)
+    (condition-case ()
+	(require 'w3-forms)
+      (error (setq files (delete "nnweb.el" files))))
     (while files
       (setq file (car files)
 	    files (cdr files))
@@ -49,7 +58,8 @@
 	(setq byte-compile-warnings 
 	      '(free-vars unresolved callargs redefine obsolete))))
       (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el" 
-				    "messagexmas.el")))
+				    "messagexmas.el" "nnheaderxm.el"
+				    "smiley.el")))
 		xemacs)
 	(condition-case ()
 	    (byte-compile-file file)