From: teranisi <teranisi>
Date: Mon, 2 Oct 2000 04:07:25 +0000 (+0000)
Subject: * elmo-util.el (elmo-cross-device-link-error-p): Abolished.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8eec64bb9281c342762fac83cb050013a7393eee;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-cross-device-link-error-p): Abolished.
(elmo-copy-file): Uncheck error condition for `add-name-to-file'.
---

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  <teranisi@gohome.org>
 
+	* 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)