From: yoichi <yoichi>
Date: Sun, 11 May 2003 07:44:29 +0000 (+0000)
Subject: * wl-folder (wl-folder-insert-entity): Display a message,
X-Git-Tag: merged-trunk-to-elmo-mark-18~26
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2e555277b2bdb26aab81311036b32a2177a272b;p=elisp%2Fwanderlust.git

* wl-folder (wl-folder-insert-entity): Display a message,
`...done', when the work finish.
(from Tatsuya Kinoshita <tats@vega.ocn.ne.jp> [wl:10866])
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 94faee4..1a7920b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-05-11  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-folder (wl-folder-insert-entity): Display a message,
+	`...done', when the work finish.
+	(from Tatsuya Kinoshita <tats@vega.ocn.ne.jp> [wl:10866])
+
 2003-05-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-message.el (wl-message-redisplay): Remove unused local
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index b58e99e..5e74d02 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1739,7 +1739,9 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
 		    (elmo-display-progress
 		     'wl-folder-insert-entity "Inserting group %s..."
 		     (/ (* i 100) len) (car entity)))
-		  (setq flist (cdr flist))))
+		  (setq flist (cdr flist)))
+		(if (> len 0)
+		    (message "Inserting group %s...done" (car entity))))
 	      (save-excursion
 		(goto-char group-name-end)
 		(delete-region (point) (save-excursion (end-of-line)