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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3f50c44664dc717319727e2583534abe05f6302..b9ccd6c4683810108335a610b780862ffe0135d7 100644 (file)
--- 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 ec3ba4471db49057d48fa7d43ecd7acaf6f06f8e..9faa3a241b19008a30cad58e2621a1bb6d83c72d 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)