From: hmurata <hmurata>
Date: Wed, 6 Sep 2006 12:36:30 +0000 (+0000)
Subject: * elmo-vars.el (elmo-use-hardlink): New user option.
X-Git-Tag: wl-2_15_4~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=601032a61c18299731fe10958e4d1764ddd17f67;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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 '["日" "月" "火" "水" "木" "金" "土"])
 (defvar elmo-weekday-name-fr '["Dim" "Lun" "Mar" "Mer" "Jeu" "Ven" "Sam"])