This commit was generated by cvs2svn to compensate for changes in r509,

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

diff --git a/tm-ftp.el b/tm-ftp.el
index d4e5fc0..c8faf07 100644 (file)
--- a/tm-ftp.el
+++ b/tm-ftp.el
@@ -6,13 +6,18 @@
 ;;; 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 $
+;;; $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)))
@@ -24,7 +29,7 @@
          (concat "/anonymous@" site ":" directory))
     (message (concat "Accessing " pathname "/" name "..."))
     (switch-to-buffer mime::article/preview-buffer)
-    (dired pathname)
+    (funcall mime/dired-function pathname)
     (goto-char (point-min))
     (search-forward name)
     ))
@@ -34,3 +39,5 @@
             ("access-type" . "anon-ftp")
             (method . mime/decode-message/external-ftp)
             ))
+
+(provide 'tm-ftp)