tramp: plain ftp problem

[Kin Cho <kin@techie.com>]

Hi,

I'm running tramp 2.0.35.

I wanted to ftp to a box (called "guiness") which supports ftp.
The box supports ssh too, but the tramp startup overhead is a bit
much and I like to avoid typing passwords which scp requires :(.

I used this sytax: /ftp:root@guiness:/knbt/

The dired listing works fine.  However, I got an error retrieving
a file ("log") from the dired listing.

If I eval this at the top level:

(file-symlink-p "/ftp:root@guiness:/knbt/log")

I simply got nil.

If I don't load tramp, ange-ftp works fine retrieving the same
file.

I'm using:

GNU Emacs 21.3.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2003-04-21 on nscldt26

Thanks.

-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" "123" "" #<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@guiness:/knbt/log")
  ange-ftp-expand-file-name("/ftp:root@guiness:/knbt/log" nil)
  apply(ange-ftp-expand-file-name ("/ftp:root@guiness:/knbt/log" nil))
  ange-ftp-hook-function(expand-file-name "/ftp:root@guiness:/knbt/log" nil)
  apply(ange-ftp-hook-function expand-file-name ("/ftp:root@guiness:/knbt/log" nil))
  tramp-ftp-file-name-handler(expand-file-name "/ftp:root@guiness:/knbt/log" nil)
  apply(tramp-ftp-file-name-handler expand-file-name ("/ftp:root@guiness:/knbt/log" nil))
  tramp-file-name-handler(expand-file-name "/ftp:root@guiness:/knbt/log" nil)
  file-symlink-p("/ftp:root@guiness:/knbt/log")
  vc-find-file-hook()
  run-hooks(find-file-hooks)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer log> "/ftp:root@guiness:/knbt/log" nil nil "/ftp:root@guiness:/knbt/log" (2 -1))
  find-file-noselect("/ftp:root@guiness:/knbt/log" nil nil nil)
  ad-Orig-find-file("/ftp:root@guiness:/knbt/log" 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@guiness:/knbt/log")
  dired-advertised-find-file()
  call-interactively(dired-advertised-find-file)