From: teranisi <teranisi>
Date: Wed, 22 Dec 2004 14:12:11 +0000 (+0000)
Subject: (elmo-folder-append-buffer): Use elmo-copy-file instead of
X-Git-Tag: wl-2_14-root~113
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cdc43be83b9234a92022895ba1b31c0b21284164;p=elisp%2Fwanderlust.git

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