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

existence of source file.  (Bug#10325)

2 files changed, 9 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1a3a452367..4f7d61b9cb1 100644
--- 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 06d200c4e3e..b7fdd9a9bd8 100644
--- 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)))