# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1202923162 0
# Node ID 91513d7aa412660a516d1c6cb7cbf56edbc52762
# Parent  7148a71c21f41f63ded2e0996d65f8f0482293ec
* net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME.

diff -r 7148a71c21f4 -r 91513d7aa412 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Tue Feb 12 23:30:33 2008 +0000
+++ b/lisp/net/ange-ftp.el	Wed Feb 13 17:19:22 2008 +0000
@@ -3766,7 +3766,7 @@
 	    (ange-ftp-send-cmd
 	     t-host
 	     t-user
-	     (list 'put (or temp2 filename) t-name)
+	     (list 'put (or temp2 (ange-ftp-quote-string filename)) t-name)
 	     (or msg
 		 (if (and temp2 f-parsed)
 		     (format "Putting %s" newname)