From de95cc30ec71235a682f16b7356569620fe947b9 Mon Sep 17 00:00:00 2001 From: Michael Albinus <michael.albinus@gmx.de> Date: Wed, 13 Feb 2008 17:20:11 +0000 Subject: [PATCH] * net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME. --- lisp/ChangeLog | 4 ++++ lisp/net/ange-ftp.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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) -- 2.39.5