Synch to Gnus 200312240133.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af9ec5b..3a1e749 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * dgnushack.el (dgnushack-compile): Increase the value for
+       max-specpdl-size when compiling Gnus with Emacs 20.
+
 2003-12-22  Kevin Greiner <kgreiner@xpediantsolutions.com>
        * gnus-int.el (gnus-open-server): Fixed the server status such
        that an agentized server, when opened offline, has a status of

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index b70a9a6..acbe183 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -632,15 +632,11 @@ dgnushack-compile-verbosely.  All other users should continue to use
 dgnushack-compile."
   (dgnushack-compile t))
 
-(defun dgnushack-compile-verbosely ()
-  "Call dgnushack-compile with warnings ENABLED.  If you are compiling
-patches to gnus, you should consider modifying make.bat to call
-dgnushack-compile-verbosely.  All other users should continue to use
-dgnushack-compile."
-  (dgnushack-compile t))
-
 (defun dgnushack-compile (&optional warn)
   ;;(setq byte-compile-dynamic t)
+  (when (and (not (featurep 'xemacs))
+            (< emacs-major-version 21))
+    (setq max-specpdl-size 1200))
   (unless warn
     (setq byte-compile-warnings
          '(free-vars unresolved callargs redefine)))