(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 b167879db1e5b09f61dc10d9eab25a03321716a7..68886e80cb1cafd2814f190690d51eacc7f6a17b 100644 (file)
--- 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)