From d3b66bb79dcd72428e846cd3f62eafe66195a9fb Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 24 Dec 2003 01:34:27 +0000 Subject: [PATCH] Synch to Gnus 200312240133. --- lisp/ChangeLog | 5 +++++ lisp/dgnushack.el | 10 +++------- 2 files changed, 8 insertions(+), 7 deletions(-) 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 + + * dgnushack.el (dgnushack-compile): Increase the value for + max-specpdl-size when compiling Gnus with Emacs 20. + 2003-12-22 Kevin Greiner * 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))) -- 1.7.10.4