From 8eec64bb9281c342762fac83cb050013a7393eee Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 2 Oct 2000 04:07:25 +0000 Subject: [PATCH] * elmo-util.el (elmo-cross-device-link-error-p): Abolished. (elmo-copy-file): Uncheck error condition for `add-name-to-file'. --- elmo/ChangeLog | 3 +++ elmo/elmo-util.el | 17 ++--------------- 2 files changed, 5 insertions(+), 15 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index ba9965f..2b4e097 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,8 @@ 2000-10-02 Yuuichi Teranishi + * elmo-util.el (elmo-cross-device-link-error-p): Abolished. + (elmo-copy-file): Uncheck error condition for `add-name-to-file'. + * elmo-nntp.el (elmo-nntp-search-primitive): Decode header field. (elmo-nntp-search-primitive): Fixed problem when condition is 'unmatch'. diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index 40e23eb..ca00605 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -1284,18 +1284,6 @@ Otherwise treat \\ in NEWTEXT string as special: (decode-mime-charset-region (point-min)(point-max) elmo-mime-charset) (elmo-buffer-field-condition-match condition number number-list))) -(defun elmo-cross-device-link-error-p (err) - (let ((errobj err) - cur) - (catch 'done - (while errobj - (if (and (stringp (setq cur (car errobj))) - (or (string-match "cross-device" cur) - (string-match "operation not supported" cur))) - (throw 'done t)) - (setq errobj (cdr errobj))) - nil))) - (defmacro elmo-get-hash-val (string hashtable) (let ((sym (list 'intern-soft string hashtable))) (list 'if (list 'boundp sym) @@ -1416,9 +1404,8 @@ Otherwise treat \\ in NEWTEXT string as special: (defsubst elmo-copy-file (src dst) (condition-case err (elmo-add-name-to-file src dst t) - (error (if (elmo-cross-device-link-error-p err) - (copy-file src dst t) - (error "copy file failed"))))) + (error (copy-file src dst t) + (error "copy file failed")))) (defmacro elmo-buffer-exists-p (buffer) (` (when (, buffer) -- 1.7.10.4