Re: tiny patch to ange-ftp

[Katsumi Yamaoka]

>>>>> In <address@hidden>
>>>>>   Stefan Monnier <address@hidden> wrote:

> I've installed my change.  Sorry again for the delay.

I rebuilt Emacs.  However, I still could not upload files with
another problem.  `ange-ftp-insert-directory' passes a file name
without directory components to `ange-ftp-get-file-entry' then.
So, the following change seems to be required (I confirmed it
did the trick):

*** ange-ftp.el~        Sat Oct  1 10:46:12 2005
--- ange-ftp.el Sat Oct  1 12:21:20 2005
***************
*** 2972,2982 ****
         (file (ange-ftp-get-file-part name)))
      (if ent
        (gethash file ent)
!       (or (and (ange-ftp-allow-child-lookup dir file)
               (setq ent (ange-ftp-get-files name t))
               (gethash "." ent))
          ;; i.e. it's a directory by child lookup
!         (and (setq ent (ange-ftp-get-files dir t))
               (gethash file ent))))))
  
  (defun ange-ftp-internal-delete-file-entry (name &optional dir-p)
--- 2972,2984 ----
         (file (ange-ftp-get-file-part name)))
      (if ent
        (gethash file ent)
!       (or (and dir
!              (ange-ftp-allow-child-lookup dir file)
               (setq ent (ange-ftp-get-files name t))
               (gethash "." ent))
          ;; i.e. it's a directory by child lookup
!         (and dir
!              (setq ent (ange-ftp-get-files dir t))
               (gethash file ent))))))
  
  (defun ange-ftp-internal-delete-file-entry (name &optional dir-p)