(elmo-folder-append-buffer): Use elmo-copy-file instead of

elmo-add-name-to-file.
(elmo-folder-append-messages): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 5bdc279..cb93883 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2004-12-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-maildir.el (elmo-folder-append-buffer): Use elmo-copy-file
+       instead of elmo-add-name-to-file.
+       (elmo-folder-append-messages): Ditto.
+
 2004-12-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * elmo.el (elmo-folder-update-threshold): Add nil to range.

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 26e9ab4..fd41839 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -406,7 +406,9 @@ file name for maildir directories."
          (as-binary-output-file
           (write-region (point-min) (point-max) filename nil 'no-msg))
          ;; add link from new.
-         (elmo-add-name-to-file
+         ;; Some filesystem (like AFS) does not have hard-link.
+         ;; So we use elmo-copy-file instead of elmo-add-name-to-file here.
+         (elmo-copy-file
           filename
           (expand-file-name
            (concat "new/" (file-name-nondirectory filename))
@@ -460,7 +462,9 @@ file name for maildir directories."
          (elmo-copy-file
           (elmo-message-file-name src-folder number)
           filename)
-         (elmo-add-name-to-file
+         ;; Some filesystem (like AFS) does not have hard-link.
+         ;; So we use elmo-copy-file instead of elmo-add-name-to-file here.
+         (elmo-copy-file
           filename
           (expand-file-name
            (concat "new/" (file-name-nondirectory filename))