From: yoichi <yoichi>
Date: Sat, 19 Jun 2004 19:57:24 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-update-indent-string-thread): Use
X-Git-Tag: wl-2_11_31~96
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6ea1ab5f5632c5b42ff3d8bf4850672b03ec3406;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)