Re: tramp: plain ftp problem

[Kin Cho]

"Stefan Monnier" <monnier+gnu.emacs.help/news/@flint.cs.yale.edu> writes:

> > The HEAD version (Tue Jun 24 10:46:11 2003) of the main branch of
> > ange-ftp-generate-root-prefixes seems to have a problem.  It
> 
> Please tell us which Emacs you're using.
> I strongly suspect you're using the ange-ftp.el code from CVS
> with Emacs-21.3, which of course leads to problems since ange-ftp.el
> in CVS uses new features in Emacs-CVS.

I'm using 21.3.

When I use ange-ftp from 21.3 along with tramp-2.0.35, I got this
error visiting /ftp:root@harp:/knbt/1811638.

This problem doesn't happen with the CVS version of ange-ftp, but
then there it has a problem with ange-ftp-generate-root-prefixes
as I described.

-kin

Debugger entered--Lisp error: (ftp-error "FTP Error: OPEN request failed: ftp: 
ftp: Name or service not known")
  signal(ftp-error ("FTP Error: OPEN request failed: ftp: ftp: Name or service 
not known"))
  ange-ftp-error("ftp" "kin" "OPEN request failed: ftp: ftp: Name or service 
not known")
  ange-ftp-normal-login("ftp" "kin" "foobar" "" #<process *ftp kin@ftp*>)
  ange-ftp-get-process("ftp" "kin")
  ange-ftp-host-type("ftp" "kin")
  ange-ftp-expand-dir("ftp" "kin" "~")
  ange-ftp-canonize-filename("/ftp:root@harp:/knbt/1811638")
  ange-ftp-expand-file-name("/ftp:root@harp:/knbt/1811638" nil)
  apply(ange-ftp-expand-file-name ("/ftp:root@harp:/knbt/1811638" nil))
  ange-ftp-hook-function(expand-file-name "/ftp:root@harp:/knbt/1811638" nil)
  apply(ange-ftp-hook-function expand-file-name ("/ftp:root@harp:/knbt/1811638" 
nil))
  tramp-ftp-file-name-handler(expand-file-name "/ftp:root@harp:/knbt/1811638" 
nil)
  apply(tramp-ftp-file-name-handler expand-file-name 
("/ftp:root@harp:/knbt/1811638" nil))
  tramp-file-name-handler(expand-file-name "/ftp:root@harp:/knbt/1811638" nil)
  file-symlink-p("/ftp:root@harp:/knbt/1811638")
  vc-find-file-hook()
  run-hooks(find-file-hooks)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer 1811638> "/ftp:root@harp:/knbt/1811638" nil nil 
"/ftp:root@harp:/knbt/1811638" (2 -1))
  find-file-noselect("/ftp:root@harp:/knbt/1811638" nil nil nil)
  ad-Orig-find-file("/ftp:root@harp:/knbt/1811638" nil)
  (setq ad-return-value (ad-Orig-find-file filename wildcards))
  (let (ad-return-value) (setq ad-return-value (ad-Orig-find-file filename 
wildcards)) ad-return-value)
  find-file("/ftp:root@harp:/knbt/1811638")
  dired-advertised-find-file()
  call-interactively(dired-advertised-find-file)