X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-maildir.el;h=c53ee3ab4dd3038d2b9559c6be7fcb9d6c4bc608;hb=51f9787799e1f8a5ad1f9cde0fd99489dae071c3;hp=7e3bf1c3400ab5ff950fd27182a279401cd47947;hpb=366496cfdf25d8df2f76be499708b5f3d222718e;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 7e3bf1c..c53ee3a 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -1,4 +1,4 @@
-;;; elmo-maildir.el -- Maildir interface for ELMO.
+;;; elmo-maildir.el --- Maildir interface for ELMO.
 
 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
@@ -24,10 +24,10 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 
 (eval-when-compile (require 'cl))
 
@@ -394,8 +394,8 @@ file name for maildir directories."
       (let ((dir (elmo-maildir-folder-directory-internal folder))
 	    (succeeds numbers)
 	    filename)
-	(setq filename (elmo-maildir-temporal-filename dir))
 	(dolist (number numbers)
+	  (setq filename (elmo-maildir-temporal-filename dir))
 	  (elmo-copy-file
 	   (elmo-message-file-name src-folder number)
 	   filename)
@@ -403,7 +403,8 @@ file name for maildir directories."
 	   filename
 	   (expand-file-name
 	    (concat "new/" (file-name-nondirectory filename))
-	    dir)))
+	    dir))
+	  (elmo-progress-notify 'elmo-folder-move-messages))
 	succeeds)
     (luna-call-next-method)))