From: hmurata <hmurata>
Date: Wed, 21 Nov 2001 15:13:29 +0000 (+0000)
Subject: * elmo-util.el (elmo-copy-file): Added argument
X-Git-Tag: wl-2_8-root~131
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2abcb9b3946fca74662e76fa7cef37d712628b2;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-copy-file): Added argument
`ok-if-already-exists'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8bd7a66..92debf1 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-21  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-util.el (elmo-copy-file): Added argument
+	`ok-if-already-exists'.
+
 2001-11-21  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-pipe.el (elmo-pipe-drain): Load killed-list.
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index caacaeb..2322005 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1066,10 +1066,10 @@ Emacs 19.28 or earlier does not have `unintern'."
       (setq filename (substring filename (+ (match-end 0) 1))))
     (concat result filename)))
 
-(defsubst elmo-copy-file (src dst)
+(defsubst elmo-copy-file (src dst &otional ok-if-already-exists)
   (condition-case err
-      (elmo-add-name-to-file src dst t)
-    (error (copy-file src dst t))))
+      (elmo-add-name-to-file src dst ok-if-already-exists)
+    (error (copy-file src dst ok-if-already-exists t))))
 
 (defsubst elmo-buffer-exists-p (buffer)
   (if (bufferp buffer)