[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: GNU Emacs 21.1 ange-ftp to VMS bug (FIXED!)
From: |
Forrest Cahoon |
Subject: |
Re: GNU Emacs 21.1 ange-ftp to VMS bug (FIXED!) |
Date: |
26 Oct 2001 14:18:17 -0700 |
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