# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1165403720 0
# Node ID e03278254fa94e077913b76dbea43bea3d3c6674
# Parent  dd07b44cc4e9b94b5304e6d3209c1e715b2f260f
(gnus-sort-threads, gnus-summary-limit-children): Use `max'
to avoid the value of `max-lisp-eval-depth' decreasing.

diff -r dd07b44cc4e9 -r e03278254fa9 lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Wed Dec 06 01:30:39 2006 +0000
+++ b/lisp/gnus/gnus-sum.el	Wed Dec 06 11:15:20 2006 +0000
@@ -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