* net/ange-ftp.el (ange-ftp-copy-file-internal): Check for

existence of source file.  (Bug#10325)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1a3a45..4f7d61b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-23  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/ange-ftp.el (ange-ftp-copy-file-internal): Check for
+       existence of source file.  (Bug#10325)
+
 2011-12-23  Alan Mackenzie  <acm@muc.de>
 
        Fix unstable fontification inside templates.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 06d200c..b7fdd9a 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3637,6 +3637,10 @@ so return the size on the remote host exactly. See RFC 3659."
   (setq filename (expand-file-name filename)
        newname (expand-file-name newname))
 
+  (or (file-exists-p filename)
+      (signal 'file-error
+             (list "Copy file" "no such file or directory" filename)))
+
   ;; canonicalize newname if a directory.
   (if (file-directory-p newname)
       (setq newname (expand-file-name (file-name-nondirectory filename) newname)))