;;;
;;; 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.1 1995/09/14 15:49:43 morioka Exp $
;;;
-(provide 'tm-ftp)
-
+(require 'tm-view)
(require 'ange-ftp)
+(defvar mime/dired-function
+ (if mime/use-multi-frame
+ (function dired-other-frame)
+ (function dired)
+ ))
+
(defun mime/decode-message/external-ftp (beg end cal)
(let ((access-type (cdr (assoc "access-type" cal)))
(site (cdr (assoc "site" cal)))
(setq pathname
(concat "/anonymous@" site ":" directory))
(message (concat "Accessing " pathname "/" name "..."))
- (dired pathname)
+ (switch-to-buffer mime::article/preview-buffer)
+ (funcall mime/dired-function pathname)
(goto-char (point-min))
(search-forward name)
))
(method . mime/decode-message/external-ftp)
))
-
-
-
\ No newline at end of file
+(provide 'tm-ftp)