ange-ftp, ispell.el bug

[Tak Ota]

emacs 21.1.80 also is affected by the minor bugs I reported before in
ange-ftp.el and ispell.el on emacs 21.2.50.

*** d:/pub/emacs/emacs-21.1.80/lisp/net/ange-ftp.el     Sat Dec 29 12:43:15 2001
--- net/ange-ftp.el     Mon Jan 21 16:06:17 2002
***************
*** 3011,3017 ****
                        (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)))))
  
--- 3011,3017 ----
                        (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)))))
  

and

*** d:/pub/emacs/emacs-21.1.80/lisp/textmodes/ispell.el Fri Sep  7 08:35:56 2001
--- textmodes/ispell.el Mon Jan 21 16:10:01 2002
***************
*** 1886,1899 ****
              (insert (concat help-1 "\n" help-2 "\n" help-3))
              (sit-for 5)
              (kill-buffer "*Ispell Help*"))
!         (select-window (minibuffer-window))
!         (erase-buffer)
!         (if (not version18p) (message nil))
!         ;;(set-minibuffer-window (selected-window))
!         (enlarge-window 2)
!         (insert (concat help-1 "\n" help-2 "\n" help-3))
!         (sit-for 5)
!         (erase-buffer))))))
  
  
  (defun lookup-words (word &optional lookup-dict)
--- 1886,1901 ----
              (insert (concat help-1 "\n" help-2 "\n" help-3))
              (sit-for 5)
              (kill-buffer "*Ispell Help*"))
!         (unwind-protect
!             (progn
!               (select-window (minibuffer-window))
!               (erase-buffer)
!               (if (not version18p) (message nil))
!               ;;(set-minibuffer-window (selected-window))
!               (enlarge-window 2)
!               (insert (concat help-1 "\n" help-2 "\n" help-3))
!               (sit-for 5))
!           (erase-buffer)))))))
  
  
  (defun lookup-words (word &optional lookup-dict)