* elmo-vars.el (elmo-use-hardlink): New user option.

* elmo-util.el (elmo-add-name-to-file): Switch implementations by
`elmo-use-hardlink'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fbb15ac..64d8544 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2006-09-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * elmo-vars.el (elmo-use-hardlink): New user option.
+
+       * elmo-util.el (elmo-add-name-to-file): Switch implementations by
+       `elmo-use-hardlink'.
+
        * elmo-pipe.el (elmo-pipe-folder-list-target-messages): Keep the
        killed-list.
        (elmo-pipe-drain): Use `elmo-folder-open' and `elmo-folder-close'

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 85368a0..30b27d4 100644 (file)
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -60,9 +60,7 @@
 (fset 'elmo-base64-decode-string
       (mel-find-function 'mime-decode-string "base64"))
 
-;; Any Emacsen may have add-name-to-file(), because loadup.el requires it. :-p
-;; Check make-symbolic-link() instead.  -- 981002 by Fuji
-(if (fboundp 'make-symbolic-link)  ;; xxx
+(if elmo-use-hardlink
     (defalias 'elmo-add-name-to-file 'add-name-to-file)
   (defun elmo-add-name-to-file
     (filename newname &optional ok-if-already-exists)

diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index 160fea5..f09a4e6 100644 (file)
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -396,6 +396,12 @@ Arguments for this function are NAME, BUFFER, HOST and SERVICE.")
        (and (eq system-type 'windows-nt) (not (featurep 'meadow)))))
   "Your file system has link count, or not.")
 
+(defvar elmo-use-hardlink
+  ;; Any Emacsen may have add-name-to-file(), because loadup.el
+  ;; requires it. :-p Check make-symbolic-link() instead.
+  (fboundp 'make-symbolic-link)
+  "Hardlink is available on your file system, or not.")
+
 (defvar elmo-weekday-name-en '["Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"])
 (defvar elmo-weekday-name-ja '["\e$BF|\e(B" "\e$B7n\e(B" "\e$B2P\e(B" "\e$B?e\e(B" "\e$BLZ\e(B" "\e$B6b\e(B" "\e$BEZ\e(B"])
 (defvar elmo-weekday-name-fr '["Dim" "Lun" "Mar" "Mer" "Jeu" "Ven" "Sam"])