(ange-ftp-send-cmd): Call fix-name-func for

`mdtm'.  From "Forrest Cahoon" <forrest.cahoon@merrillcorp.com>.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3f50c44664..b9ccd6c4683 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-27  Gerd Moellmann  <gerd.moellmann@t-online.de>
+
+        * net/ange-ftp.el (ange-ftp-send-cmd): Call fix-name-func for
+        `mdtm'.  From "Forrest Cahoon" <forrest.cahoon@merrillcorp.com>.
+
 2001-10-26  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * term/pc-win.el (x-frob-font-slant, x-frob-font-weight):
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index ec3ba4471db..9faa3a241b1 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)