From: teranisi <teranisi>
Date: Wed, 12 Dec 2001 14:51:07 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-folder-message-make-temp-files): Use
X-Git-Tag: wl-2_8-root~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e22a69470365bb60089091d35a9879d55af4d611;p=elisp%2Fwanderlust.git

* elmo-localdir.el (elmo-folder-message-make-temp-files): Use
elmo-copy-file instead of elmo-add-name-to-file.

* elmo-nmz.el (elmo-folder-message-make-temp-files): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5889ce4..54adbc0 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2001-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-localdir.el (elmo-folder-message-make-temp-files): Use
+	elmo-copy-file instead of elmo-add-name-to-file.
+
+	* elmo-nmz.el (elmo-folder-message-make-temp-files): Ditto.
+
 	* elmo-nmz.el (elmo-map-folder-list-message-locations): Allow
 	"file://..." index.
 
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 3f8c916..b6311d1 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -124,7 +124,7 @@
   (let ((temp-dir (elmo-folder-make-temporary-directory folder))
 	(cur-number (or start-number 0)))
     (dolist (number numbers)
-      (elmo-add-name-to-file
+      (elmo-copy-file
        (expand-file-name
 	(int-to-string number)
 	(elmo-localdir-folder-directory-internal folder))
diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el
index 5392a62..cda62cb 100644
--- a/elmo/elmo-nmz.el
+++ b/elmo/elmo-nmz.el
@@ -178,7 +178,7 @@ If the value is a list, all elements are used as index paths for namazu."
   (let ((temp-dir (elmo-folder-make-temporary-directory folder))
 	(cur-number (if start-number 0)))
     (dolist (number numbers)
-      (elmo-add-name-to-file
+      (elmo-copy-file
        (elmo-message-file-name folder number)
        (expand-file-name
 	(int-to-string (if start-number (incf cur-number) number))