Commit 04b61ae9 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(gnus-sort-threads, gnus-summary-limit-children): Use `max'

to avoid the value of `max-lisp-eval-depth' decreasing.
parent 9ac618de
2006-12-06 Chris Moore <dooglus@gmail.com> (tiny change)
* gnus-sum.el (gnus-sort-threads, gnus-summary-limit-children):
Use `max' to avoid the value of `max-lisp-eval-depth' decreasing.
2006-12-04 Jouni K. Sepp,Ad(Bnen <jks@iki.fi> (tiny change)
* mm-url.el (mm-url-predefined-programs): Call curl with correct
......
......@@ -4561,7 +4561,7 @@ If LINE, insert the rebuilt thread starting on line LINE."
(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 @@ fetch-old-headers verbiage, and so on."
;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment