(ange-ftp-copy-file-internal): Quote new name

for the case it contains spaces.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index d9af92f83ea70a9f5f79ab61161156752f09e2b8..6c822d4604a8126a155ee88604e4bc223f8fa15a 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3501,7 +3501,7 @@ system TYPE.")
              (ange-ftp-send-cmd
               f-host
               f-user
-              (list 'get f-name (or temp1 newname))
+              (list 'get f-name (or temp1 (ange-ftp-quote-string newname)))
               (or msg
                   (if (and temp1 t-parsed)
                       (format "Getting %s" f-abbr)