changeset 80116:91513d7aa412

* net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME.
author Michael Albinus <michael.albinus@gmx.de>
date Wed, 13 Feb 2008 17:19:22 +0000
parents 7148a71c21f4
children e52192bbbade
files lisp/net/ange-ftp.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)