From 6ea1ab5f5632c5b42ff3d8bf4850672b03ec3406 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 19 Jun 2004 19:57:24 +0000 Subject: [PATCH] * wl-thread.el (wl-thread-update-indent-string-thread): Use `elmo-display-progress-threshold'. --- wl/ChangeLog | 5 +++++ wl/wl-thread.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) 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 + + * wl-thread.el (wl-thread-update-indent-string-thread): Use + `elmo-display-progress-threshold'. + 2004-06-19 Hiroya Murata * 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) -- 1.7.10.4