Re: GNU Emacs 21.1 ange-ftp to VMS bug (FIXED!)

[Forrest Cahoon]

OK, I've got a patch for this:

*** ange-ftp.el.ORIG    Fri Oct 26 13:09:11 2001
--- ange-ftp.el Fri Oct 26 16:00:27 2001
***************
*** 2245,2253 ****
        (setq cmd1 (funcall fix-name-func cmd1)))
  
       ;; Second argument is the remote name
!      ((memq cmd0 '(append put chmod))
        (setq cmd2 (funcall fix-name-func cmd2)))
! 
       ;; Both arguments are remote names
       ((eq cmd0 'rename)
        (setq cmd1 (funcall fix-name-func cmd1)
--- 2245,2254 ----
        (setq cmd1 (funcall fix-name-func cmd1)))
  
       ;; Second argument is the remote name
!      ((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)


Much thanks to Gerd Moellmann for helping me with this -- I exchanged
several e-mails with him before noticing his initial messge was also
posted.

Forrest Cahoon
not speaking for merrill corporation