* wl-thread.el (wl-thread-update-indent-string-thread): Use

`elmo-display-progress-threshold'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0c07a95..52d0967 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-20  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-thread.el (wl-thread-update-indent-string-thread): Use
+       `elmo-display-progress-threshold'.
+
 2004-06-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-summary.el (wl-summary-update-mark-and-highlight-window): No

diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index ce3ad81..6555283 100644 (file)
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -716,18 +716,19 @@ Message is inserted to the summary buffer."
         (i 0)
         beg)
     (while top-list
-      (when (or (zerop (% i 5)) (= i num))
-       (elmo-display-progress
-        'wl-thread-update-indent-string-thread
-        "Updating thread indent..."
-        (/ (* i 100) num)))
+      (when (> num elmo-display-progress-threshold)
+       (setq i (1+ i))
+       (when (or (zerop (% i 5)) (= i num))
+         (elmo-display-progress
+          'wl-thread-update-indent-string-thread
+          "Updating thread indent..."
+          (/ (* i 100) num))))
       (when (car top-list)
        (wl-summary-jump-to-msg (car top-list))
        (setq beg (point))
        (wl-thread-goto-bottom-of-sub-thread)
        (wl-thread-update-indent-string-region beg (point)))
-      (setq top-list (cdr top-list)
-           i (1+ i)))
+      (setq top-list (cdr top-list)))
     (message "Updating thread indent...done")))
 
 (defun wl-thread-update-children-number (entity)