Fix build for (S)XEmacs.

[gnus] / lisp / dgnushack.el

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 9f9ee55..8676406 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -345,6 +345,26 @@ This means that every warning will be reported as an error."
       (setq files (delete "gnus-icalendar.el" files))
       ;; Temporary during development.
       (setq files (delete "gnus-cloud.el" files)))
+    ;; Prefer XEmacs mail-lib pkg if installed
+    (when (and (featurep 'xemacs)
+              (locate-library "mail-lib/_pkg"))
+      (dolist (file
+              '("rfc2104.el" "netrc.el" "pop3.el" "starttls.el" "tls.el"))
+       (setq files (delete file files))))
+    ;; Prefer XEmacs ecrypto pkg if installed
+    (when (and (featurep 'xemacs)
+              (locate-library "ecrypto/_pkg"))
+      (dolist (file '("md4.el" "sha1.el" "hex-util.el"))
+       (setq files (delete file files))))
+    ;; Prefer XEmacs net-utils pkg if installed
+    (when (and (featurep 'xemacs)
+              (locate-library "net-utils/_pkg"))
+      (dolist (file '("dig.el" "dns.el" "dns-mode.el"))
+       (setq files (delete file files))))
+    ;; Prefer XEmacs text-modes pkg if installed
+    (when (and (featurep 'xemacs)
+              (locate-library "text-modes/_pkg"))
+      (setq files (delete "format-spec.el" files)))
     (dolist (file files)
       (setq file (expand-file-name file srcdir))
       (when (and (file-exists-p