* wl-vars.el (wl-summary-max-thread-depth): New user option.

* wl-summary.el (wl-summary-insert-thread-entity):
If the thread depth is reached to wl-summary-max-thread-depth,
divide the thread.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cf4b2de..6d777d7 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2002-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-vars.el (wl-summary-max-thread-depth): New user option.
+
+       * wl-summary.el (wl-summary-insert-thread-entity):
+       If the thread depth is reached to wl-summary-max-thread-depth,
+       divide the thread.
+
 2002-12-08  Kenichi OKADA  <okada@opaopa.org>
 
        * wl-draft.el (wl-draft-send-mail-with-smtp): Fix logic

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 181808a..e5bd902 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2705,6 +2705,7 @@ If ARG, without confirm."
         parent-entity
         parent-number
         (case-fold-search t)
+        (depth 0)
         cur number overview2 cur-entity linked retval delayed-entity
         update-list entity-stack)
     (while entity
@@ -2714,14 +2715,15 @@ If ARG, without confirm."
            parent-number (elmo-msgdb-overview-entity-get-number
                           parent-entity))
       (setq number (elmo-msgdb-overview-entity-get-number entity))
-      ;; If thread loop detected, set parent as nil.
+      ;; If thread loop detected or reached to max depth, set parent as nil.
       (setq cur entity)
-      (while cur
+      (while (and cur (< depth wl-summary-max-thread-depth))
        (if (eq number (elmo-msgdb-overview-entity-get-number
                        (setq cur
                              (elmo-msgdb-get-parent-entity cur msgdb))))
            (setq parent-number nil
-                 cur nil)))
+                 cur nil))
+       (incf depth))
       (if (and parent-number
               (not (wl-thread-get-entity parent-number))
               (not force-insert))

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index e7832e9..a4c9a17 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1585,6 +1585,12 @@ with wl-highlight-folder-many-face."
   :group 'wl-summary
   :group 'wl-pref)
 
+(defcustom wl-summary-max-thread-depth 30
+  "*If thread depth is larger than this value, don't treat it as a thread."
+  :type 'integer
+  :group 'wl-summary
+  :group 'wl-pref)
+
 (defcustom wl-summary-no-from-message "nobody@nowhere?"
   "*A string displayed in summary when no from field exists."
   :type 'string