Mercurial > emacs

changeset 74460:e03278254fa9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-sort-threads, gnus-summary-limit-children): Use `max' to avoid the value of `max-lisp-eval-depth' decreasing.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 06 Dec 2006 11:15:20 +0000
parents dd07b44cc4e9
children 481b951687b3
files lisp/gnus/gnus-sum.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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