tm 6.63

[elisp/tm.git] / tm-ftp.el

diff --git a/tm-ftp.el b/tm-ftp.el
index 9044ed8..d4e5fc0 100644 (file)
--- a/tm-ftp.el
+++ b/tm-ftp.el
@@ -1,9 +1,12 @@
 ;;;
 ;;; tm-ftp: anonymous ftp processor for tm-view
 ;;;
-;;; by MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp> (1994/11/5)
+;;; by MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp> (1994/11/ 5)
 ;;;    
-;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp> (1994/11/8)
+;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>  (1994/11/ 8)
+;;;         and OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> (1994/11/11)
+;;;
+;;; $Id: tm-ftp.el,v 6.0 1995/03/13 16:49:24 morioka Exp $
 ;;;
 
 (provide 'tm-ftp)
@@ -20,6 +23,7 @@
     (setq pathname
          (concat "/anonymous@" site ":" directory))
     (message (concat "Accessing " pathname "/" name "..."))
+    (switch-to-buffer mime::article/preview-buffer)
     (dired pathname)
     (goto-char (point-min))
     (search-forward name)
@@ -30,7 +34,3 @@
             ("access-type" . "anon-ftp")
             (method . mime/decode-message/external-ftp)
             ))
-
-          
-
-       
\ No newline at end of file