From: yamaoka <yamaoka>
Date: Wed, 24 Dec 2003 01:34:27 +0000 (+0000)
Subject: Synch to Gnus 200312240133.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d3b66bb79dcd72428e846cd3f62eafe66195a9fb;p=elisp%2Fgnus.git-

Synch to Gnus 200312240133.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af9ec5b..3a1e749 100644
--- 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
--- 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)))