address@hidden: gnus-summary-limit-children limits maximum thread length]

[Richard Stallman]

This seems like a good change.  Would someone please install it in Emacs?

------- Start of forwarded message -------
Date: Tue, 05 Dec 2006 13:01:24 +0100
From: Chris Moore <address@hidden>
To: address@hidden
Subject: gnus-summary-limit-children limits maximum thread length
X-Spam-Status: No, score=1.9 required=5.0 tests=RCVD_BY_IP,
        RCVD_IN_BL_SPAMCOP_NET autolearn=no version=3.0.4

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


_______________________________________________
emacs-pretest-bug mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
------- End of forwarded message -------