From: hmurata <hmurata>
Date: Sat, 6 Oct 2001 06:35:20 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-exec-subr): Setup and clear progress
X-Git-Tag: wl-2_7_5~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2402d30badc20f95f82b87e8730df2d4d48e5ca;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-exec-subr): Setup and clear progress
counter.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3ce33fe..f20f752 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-exec-subr): Setup and clear progress
+	counter.
+
 2001-10-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-draft.el (wl-draft): Make truncate-partial-width-windows
@@ -530,7 +535,7 @@
 	before call `get-buffer'. Fixed parenthesis.
 	(wl-score-get-header-entry): Clear message and help window when
 	keyboard quit.
-	(wl-score-edit-insert-header): Ditto. 
+	(wl-score-edit-insert-header): Ditto.
 
 2001-07-14  Yuuichi Teranishi  <teranisi@gohome.org>
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 1c273b2..02fcdfa 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3117,6 +3117,9 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	      (wl-inverse-alist refiles wl-summary-buffer-refile-list))
 	(goto-char start)		; avoid moving cursor to
 					; the bottom line.
+	(when (> refile-len elmo-display-progress-threshold)
+	  (elmo-progress-set 'elmo-folder-move-messages
+			     refile-len "Moving messages..."))
 	(while dst-msgs
 	  (setq result nil)
 	  (condition-case nil
@@ -3148,9 +3151,13 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 		  (+ refile-failures (length (cdr (car dst-msgs))))))
 	  (setq refile-executed (+ refile-executed (length (cdr (car dst-msgs)))))
 	  (setq dst-msgs (cdr dst-msgs)))
+	(elmo-progress-clear 'elmo-folder-move-messages)
 	;; end refile
 	;; begin cOpy...
 	(setq dst-msgs (wl-inverse-alist copies wl-summary-buffer-copy-list))
+	(when (> copy-len elmo-display-progress-threshold)
+	  (elmo-progress-set 'elmo-folder-move-messages
+			     copy-len "Copying messages..."))
 	(while dst-msgs
 	  (setq result nil)
 	  (condition-case nil
@@ -3181,7 +3188,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	  (setq copy-executed (+ copy-executed (length (cdr (car dst-msgs)))))
 	  (setq dst-msgs (cdr dst-msgs)))
 	;; Hide progress bar.
-	(elmo-display-progress 'elmo-folder-move-messages "" 100)
+	(elmo-progress-clear 'elmo-folder-move-messages)
 	;; end cOpy
 	(wl-summary-folder-info-update)
 	(wl-summary-set-message-modified)