From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 27 Oct 2001 07:54:14 +0000 (+0000)
Subject: (ange-ftp-send-cmd): Call fix-name-func for
X-Git-Tag: emacs-21.2~445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58d27164ab246e33ef6397723679224074307c45;p=emacs.git

(ange-ftp-send-cmd): Call fix-name-func for
`mdtm'.  From "Forrest Cahoon" <forrest.cahoon@merrillcorp.com>.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index b167879db1e..68886e80cb1 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2245,9 +2245,9 @@ and NOWAIT."
       (setq cmd1 (funcall fix-name-func cmd1)))
 
      ;; Second argument is the remote name
-     ((memq cmd0 '(append put chmod))
+     ((or (memq cmd0 '(append put chmod))
+          (and (eq cmd0 'quote) (string= cmd1 "mdtm")))
       (setq cmd2 (funcall fix-name-func cmd2)))
-
      ;; Both arguments are remote names
      ((eq cmd0 'rename)
       (setq cmd1 (funcall fix-name-func cmd1)