# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1004169098 0
# Node ID 8c6df631e62deb049c30e0c325e774ba49685c81
# Parent  04be247dd745a65845e5b859be4f19061cf7657d
(ange-ftp-send-cmd): Call fix-name-func for
`mdtm'.  From "Forrest Cahoon" <forrest.cahoon@merrillcorp.com>.

diff -r 04be247dd745 -r 8c6df631e62d lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Sat Oct 27 07:42:11 2001 +0000
+++ b/lisp/net/ange-ftp.el	Sat Oct 27 07:51:38 2001 +0000
@@ -2245,9 +2245,9 @@
       (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)