gnus-summary-limit-children limits maximum thread length

[Chris Moore]

The definition of gnus-summary-limit-children locally binds
max-lisp-eval-depth to 5000, even if it was previously higher than
that.

This makes it impossible to view long threads of messages.

Better would be if it used 'max' to make sure it was only increasing
the value, not decreasing it.

The same goes for gnus-sort-threads(), if we're going to keep the
recursive version:

------------------------------------------------------------------------
--- lisp/gnus/gnus-sum.el       2006-11-27 00:02:10.000000000 +0100
+++ /tmp/gnus-sum.el    2006-12-05 12:54:33.000000000 +0100
@@ -4561,7 +4561,7 @@
   (if (not gnus-thread-sort-functions)
       threads
     (gnus-message 8 "Sorting threads...")
-    (let ((max-lisp-eval-depth 5000))
+    (let ((max-lisp-eval-depth (max 5000 max-lisp-eval-depth)))
       (prog1 (gnus-sort-threads-1
         threads
         (gnus-make-sort-function gnus-thread-sort-functions))
@@ -8165,7 +8165,7 @@
   ;; will really go down to a leaf article first, before slowly
   ;; working its way up towards the root.
   (when thread
-    (let* ((max-lisp-eval-depth 5000)
+    (let* ((max-lisp-eval-depth (max 5000 max-lisp-eval-depth))
           (children
           (if (cdr thread)
               (apply '+ (mapcar 'gnus-summary-limit-children
------------------------------------------------------------------------



In GNU Emacs 22.0.91.19 (i686-pc-linux-gnu, GTK+ Version 2.8.20)
 of 2006-12-03 on chrislap
X server distributor `The X.Org Foundation', version 11.0.70101000
configured using `configure '--with-gtk' '--with-xpm' '--with-jpeg' 
'--with-png' '--with-gif''

Important settings:
  value of $LC_ALL: en_GB.UTF-8
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_GB.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  show-paren-mode: t
  display-time-mode: t
  iswitchb-mode: t
  dynamic-completion-mode: t
  shell-dirtrack-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t