From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 13 Feb 2008 17:20:11 +0000 (+0000)
Subject: * net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME.
X-Git-Tag: emacs-pretest-22.1.91~27
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de95cc30ec71235a682f16b7356569620fe947b9;p=emacs.git

* net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc940e64ab9..87141d02ed2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-13  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME.
+
 2008-02-12  Juri Linkov  <juri@jurta.org>
 
 	* startup.el (fancy-startup-screen, normal-splash-screen):
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index d53f740296a..d4816dbe1c8 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3766,7 +3766,7 @@ Value is (0 0) if the modification time cannot be determined."
 	    (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)