* 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 f1a3a452367388f2e90a419d2268826f1de6822c..4f7d61b9cb105ca966956b26d604bc2d0f47ed91 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 06d200c4e3e1f47dabc694e2facf1481723e47f4..b7fdd9a9bd8201b50587b5af53aa84d6646f6f49 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)))