# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 949080587 0
# Node ID 00282ceafbca20dd48e6d8e9eedbc9c55bb9634b
# Parent  8a7e3bcab064ec27e22b0d93bae968c6f39e511a
(ange-ftp-copy-file-internal): Quote new name
for the case it contains spaces.

diff -r 8a7e3bcab064 -r 00282ceafbca lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Fri Jan 28 17:27:56 2000 +0000
+++ b/lisp/ange-ftp.el	Fri Jan 28 17:29:47 2000 +0000
@@ -3501,7 +3501,7 @@
 	      (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)