* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))