2001-12-07 14:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / dgnushack.el

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index e734720..62b75df 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -232,13 +232,21 @@ Modify to suit your needs."))
     (when (featurep 'base64)
       (setq files (delete "base64.el" files)))
     (condition-case code
-       (require 'w3-forms)
+       (require 'w3-parse)
       (error
-       (message "No w3: %s %s" code (locate-library "w3-forms"))
-       (dolist (file '("nnweb.el" "nnlistserv.el" "nnultimate.el"
-                      "nnslashdot.el" "nnwarchive.el" "webmail.el"
-                      "nnwfm.el" "nnrss.el"))
+       (message "No w3: %s %s" code (locate-library "w3-parse"))
+       (dolist (file '("nnultimate.el" "webmail.el" "nnwfm.el"))
         (setq files (delete file files)))))
+    (condition-case code
+       (require 'mh-e)
+      (error
+       (message "No mh-e: %s %s" code (locate-library "mh-e"))
+       (setq files (delete "gnus-mh.el" files))))
+    (condition-case code
+       (require 'xml)
+      (error
+       (message "No xml: %s %s" code (locate-library "xml"))
+       (setq files (delete "nnrss.el" files))))
     (dolist (file
             (if (featurep 'xemacs)
                 '("md5.el" "smiley-ems.el")
@@ -347,7 +355,19 @@ Modify to suit your needs."))
 ;;; no-byte-compile: t
 ;;; no-update-autoloads: t
 ;;; End:
-;;; gnus-load.el ends here\n"))
+;;; gnus-load.el ends here
+")
+    ;; Workaround the bug in some version of XEmacs.
+    (when (featurep 'xemacs)
+      (condition-case nil
+         (require 'cus-load)
+       (error nil))
+      (goto-char (point-min))
+      (when (and (fboundp 'custom-add-loads)
+                (not (search-forward "\n(autoload 'custom-add-loads " nil t)))
+       (search-forward "\n;;; Code:" nil t)
+       (forward-line 1)
+       (insert "\n(autoload 'custom-add-loads \"cus-load\")\n"))))
   (message (format "Compiling %s..." dgnushack-gnus-load-file))
   (byte-compile-file dgnushack-gnus-load-file))