Ange-ftp can't open file or directory.

[Chunyu Wang]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Since the function "file-attributes" updated in CVS Emacs.

backtraces:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-number-of-arguments #[(file) "......" 
[file parsed files part ange-ftp-inodes-hashtable inode expand-file-name 
ange-ftp-ftp-name file-name-nondirectory "" "." ange-ftp-get-files 
file-name-directory ange-ftp-hash-entry-exists-p 2 gethash puthash 
file-name-absolute-p ange-ftp-expand-symlink -1 (0 0) ange-ftp-file-modtime (0 
0) "l" "d" "-" "?????????" nil ange-ftp-real-file-attributes dirp name user 
host ange-ftp-next-inode-number] 13] 2)
  ange-ftp-file-attributes("/ftp:address@hidden:/home/spr/.bashrc" nil)
  apply(ange-ftp-file-attributes ("/ftp:address@hidden:/home/spr/.bashrc" nil))
  ange-ftp-hook-function(file-attributes 
"/ftp:address@hidden:/home/spr/.bashrc" nil)
  apply(ange-ftp-hook-function file-attributes 
("/ftp:address@hidden:/home/spr/.bashrc" nil))
  tramp-ftp-file-name-handler(file-attributes 
"/ftp:address@hidden:/home/spr/.bashrc" nil)
  apply(tramp-ftp-file-name-handler file-attributes 
("/ftp:address@hidden:/home/spr/.bashrc" nil))
* tramp-file-name-handler(file-attributes 
"/ftp:address@hidden:/home/spr/.bashrc" nil)
* file-attributes("/ftp:address@hidden:/home/spr/.bashrc")
* (let* ((buf ...) (truename ...) (attributes ...) (number ...) (other ...)) 
(if other (progn ... ...)) (when (and large-file-warning-threshold ... ... ... 
...) (error "Aborted")) (if buf (progn ... ... buf) (setq buf ...) 
(set-buffer-major-mode buf) (find-file-noselect-1 buf filename nowarn rawfile 
truename number)))
* (if (and wildcards find-file-wildcards (not ...) (string-match "[[*?]" 
filename)) (let (... ...) (if ... ... ...)) (let* (... ... ... ... ...) (if 
other ...) (when ... ...) (if buf ... ... ... ...)))
* (if (file-directory-p filename) (or (and find-file-run-dired ...) (error "%s 
is a directory" filename)) (if (and wildcards find-file-wildcards ... ...) (let 
... ...) (let* ... ... ... ...)))
* find-file-noselect("/ftp:address@hidden:.bashrc" nil nil)
  ido-file-internal(always-frame)
  ido-find-file()
  call-interactively(ido-find-file)
--8<---------------cut here---------------end--------------->8---

In GNU Emacs 21.3.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2003-12-10 on db.cs.hit.edu.cn
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  which-function-mode: t
  show-paren-mode: t
  display-time-mode: t
  auto-compression-mode: t
  partial-completion-mode: t
  minibuffer-electric-default-mode: t
  encoded-kbd-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  column-number-mode: t
  line-number-mode: t

Recent input:
d d d d d d d d d d d d d d d d d d d d d d d d d d 
d d d d d d d d d d c c c c c c c d d c d d d d c C-x 
h ESC w ESC x e m a c s SPC b u SPC DEL DEL DEL DEL 
DEL DEL DEL DEL b u g SPC r DEL DEL DEL DEL r e p o 
r t SPC e m a c s SPC b u SPC RET

Recent messages:
Proceeding, will debug on next eval or call.
Entering debugger...
Proceeding, will debug on next eval or call.
Entering debugger...
Proceeding, will debug on next eval or call.
Entering debugger...
Continuing.
Entering debugger...
Mark set [2 times]
Loading emacsbug...done

-- 
Harbin Institute of Technology, China.
Chunyu Wang.