From cdc43be83b9234a92022895ba1b31c0b21284164 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 22 Dec 2004 14:12:11 +0000 Subject: [PATCH] (elmo-folder-append-buffer): Use elmo-copy-file instead of elmo-add-name-to-file. (elmo-folder-append-messages): Ditto. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-maildir.el | 8 ++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4