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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc940e64ab9de1bfb65781b6c8412c90bfa35212..87141d02ed28efbd74dbce1013e5034332ad166b 100644 (file)
--- 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 d53f740296aa8ad66202d5988135153d6dfaebe2..d4816dbe1c8a02651278da35a0b832d107645a5c 100644 (file)
--- 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)