Mercurial > emacs
changeset 74460:e03278254fa9
(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