From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Thu, 1 Nov 2001 17:59:34 +0000 (+0000)
Subject: 2001-11-01 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=41e51b324a131b07ed350a744d49a89f2b69a447;p=gnus

2001-11-01 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* dgnushack.el (dgnushack-make-load): A workaround for
	custom-add-loads bug in some versions of XEmacs.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab79e6eb1..e879eb7e9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-01 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* dgnushack.el (dgnushack-make-load): A workaround for
+	custom-add-loads bug in some versions of XEmacs.
+
 2001-11-01 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* mm-util.el (mm-charset-synonym-alist): Revert (some).
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 212921c36..3b1305b35 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -357,7 +357,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))