ange-ftp bug

[Katsumi Yamaoka]

Hi,

I am being troubled with some problems concerned to tramp-ftp.el
and ange-ftp.el.  Let me report the solutions for two of those
problems.

One has been posted to the Tramp list.  When I performed the `f'
command in order to open a file in the dired buffer for the
directory /ftp:address@hidden:/somewhere/, it attempts to
connect to the remotehost as an anonymous user.  It is because
the default value for the ange-ftp-name-format variable is not
suitable to Tramp file names.  Here's a test case:

(ange-ftp-ftp-name "/ftp:address@hidden:/somewhere/file")
 => ("ftp" "anonymous" "address@hidden:/somewhere/file")

I've modified that value as follows:

(setq ange-ftp-name-format
      '("^/\\(?:ftp:\\)?\\(?:\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)"
        2 1 3))

Shouldn't it be the new default value in ange-ftp.el?

Another problem is caused by performing chroot in the remotehost.
It also occurs if the pathname of the home directories are
different between the localhost and the remotehost.  When I
perform dired to /ftp:address@hidden:~/, Emacs accesses
/ftp:address@hidden:(The name of the local home directory).
It can be verified even with anonymous ftp sites:

(dired "/ftp:ftp.gnu.org:~/)

My solution for the problem is below:

*** ange-ftp.el~        Mon Jan  5 13:58:18 2004
--- ange-ftp.el Fri Jan 23 12:55:58 2004
***************
*** 3095,3101 ****
                        (dir (ange-ftp-expand-dir host user tilda)))
                   (if dir
                       (setq name (if (string-equal dir "/")
!                                     rest (concat dir rest)))
                     (error "User \"%s\" is not known"
                            (substring tilda 1)))))
  
--- 3095,3104 ----
                        (dir (ange-ftp-expand-dir host user tilda)))
                   (if dir
                       (setq name (if (string-equal dir "/")
!                                     (if (string-equal rest "")
!                                         dir
!                                       rest)
!                                   (concat dir rest)))
                     (error "User \"%s\" is not known"
                            (substring tilda 1)))))
  
Regards,
-- 
Katsumi Yamaoka <address@hidden>