GNU Emacs 21.1 ange-ftp to VMS bug

[Forrest Cahoon]

I just upgraded my debian box to GNU Emacs 21.1 but I'm afraid it's
unusable to me here at work until a bug opening files from a VMS
system via ange-ftp is fixed.

When I try to load any file, the message "File exists, but cannot be
read" shows in the minibuffer, and an empty buffer is opened.

I have identified the host as vms in my .emacs file like this
(ange-ftp-add-vms-host "somevmshost")

Looking at the *ftp ... * buffer from ange-ftp shows what's going on
(although I'm not sure what it all means):

(some names and addresses have been changed to protect innocent
systems)

>From GNU Emacs 21.1:

ftp> open somevmshost
Connected to somevmshost.xxx.xxx.com.
220 somevmshost.xxx.xxx.com MultiNet FTP Server Process V4.3(16) at
Thu 25-Oct-2001 2:10PM-CDT
Remote system type is VMS.
ftp> user "fcahoon" Turtle Power!
331 User name (fcahoon) ok. Password, please.
230-VPN FTP server on node SOMEVMSHOST
230 User FCAHOON logged into USERDISK:[FCAHOON] at Thu 25-Oct-2001
2:10PM-CDT, job 3f249da5.
Remote system type is VMS.
ftp> hash
Hash mark printing on (1024 bytes/hash mark).
ftp> dir USERDISK:[FCAHOON] /tmp/ange-ftp5115jMG
200 Port 9.144 at Host 192.168.0.1 accepted.
150 List started.
226 Transfer completed.
ftp> quote mdtm /USERDISK:/FCAHOON/LOGIN.COM
550 Unable to find file
quote mdtm /USERDISK:/FCAHOON/LOGIN.COM
ftp> 550 Unable to find file
ftp> quote mdtm /USERDISK:/FCAHOON/LOGIN.COM
550 Unable to find file
quote mdtm /USERDISK:/FCAHOON/LOGIN.COM
ftp> 550 Unable to find file
ftp> get USERDISK:[FCAHOON]LOGIN.COM /tmp/ange-ftp51154-W
200 Port 9.145 at Host 192.168.0.1 accepted.
550 %RMS-E-FNF, file not found

get USERDISK:[FCAHOON]LOGIN.COM /tmp/ange-ftp51154-W
ftp> 200 Port 9.146 at Host 192.168.0.1 accepted.
550 %RMS-E-FNF, file not found
ftp> quote mdtm /USERDISK:/FCAHOON/LOGIN.COM
550 Unable to find file
quote mdtm /USERDISK:/FCAHOON/LOGIN.COM
ftp> 550 Unable to find file


>From GNU Emacs 20.7:
ftp> open somevmshost
Connected to somevmshost.xxx.xxx.com.
220 somevmshost.xxx.xxx.com MultiNet FTP Server Process V4.3(16) at
Thu 25-Oct-2001 2:28PM-CDT
Remote system type is VMS.
user "fcahoon" Turtle Power!
ftp> 331 User name (fcahoon) ok. Password, please.
230-VPN FTP server on node SOMEVMSHOST
230 User FCAHOON logged into USERDISK:[FCAHOON] at Thu 25-Oct-2001
2:28PM-CDT, job 3f24b6b5.
Remote system type is VMS.
hash
ftp> Hash mark printing on (1024 bytes/hash mark).
dir USERDISK:[FCAHOON] /tmp/ange-ftpa1178dG
ftp> 200 Port 9.180 at Host 192.168.0.1 accepted.
150 List started.
226 Transfer completed.
ftp> get USERDISK:[FCAHOON]LOGIN.COM /tmp/ange-ftpa1178dG
200 Port 9.181 at Host 192.168.0.1 accepted.
150 ASCII retrieve of USERDISK:[FCAHOON]LOGIN.COM;205 (5352 bytes)
started.

226 Transfer completed.  4811 (8) bytes transferred.
4811 bytes received in 0.03 secs (168.0 kB/s)
ftp>