ange-ftp bug

[Tak Ota]

In an ftp session my ISP disguises true directory structure for some
security reasons.  It reports "~/" as "/" therefore "~/.." is not
visible.  In this particular case the current ange-ftp.el (in emacs
21.2.50.x) fails to present the directory path correctly.  Here is a
patch to fix this problem.

-Tak

*** d:/pub/emacs/emacs/lisp/net/ange-ftp.el     Wed Jan 16 17:40:23 2002
--- ange-ftp.el Sun Jan 20 19:48:53 2002
***************
*** 3040,3046 ****
                        (rest (substring name (match-end 0)))
                        (dir (ange-ftp-expand-dir host user tilda)))
                   (if dir
!                      (setq name (concat dir rest))
                     (error "User \"%s\" is not known"
                            (substring tilda 1)))))
  
--- 3040,3046 ----
                        (rest (substring name (match-end 0)))
                        (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)))))