From 601032a61c18299731fe10958e4d1764ddd17f67 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 6 Sep 2006 12:36:30 +0000 Subject: [PATCH] * elmo-vars.el (elmo-use-hardlink): New user option. * elmo-util.el (elmo-add-name-to-file): Switch implementations by `elmo-use-hardlink'. --- elmo/ChangeLog | 5 +++++ elmo/elmo-util.el | 4 +--- elmo/elmo-vars.el | 6 ++++++ 3 files changed, 12 insertions(+), 3 deletions(-) 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 + * 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"]) -- 1.7.10.4