From: teranisi <teranisi>
Date: Mon, 19 Nov 2001 02:44:27 +0000 (+0000)
Subject: * elmo-maildir.el (elmo-folder-append-messages): Make temporal filename
X-Git-Tag: wl-2_8-root~142
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5646792a0796c7bf424d0e9e7a0a3e734c68bbf2;p=elisp%2Fwanderlust.git

* elmo-maildir.el (elmo-folder-append-messages): Make temporal filename
for each message.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 0994cd0..7e1115c 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2001-11-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-maildir.el (elmo-folder-append-messages): Make temporal filename
+	for each message.
+
 	* elmo-multi.el (elmo-multi-folder-diff): Fixed problem when
 	recent value is returned from imap folder.
 
diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 6ce2367..1435526 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -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)