[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Richard Stallman
Subject: address@hidden: gnus-summary-limit-children limits maximum thread length]
Date: Tue, 05 Dec 2006 19:47:24 -0500

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

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)
     (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
         (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))
           (if (cdr thread)
               (apply '+ (mapcar 'gnus-summary-limit-children
- ------------------------------------------------------------------------

In GNU Emacs (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
------- End of forwarded message -------

reply via email to

[Prev in Thread] Current Thread [Next in Thread]