From 298594ec0806e7389b7a31374f86a1a18196e6a0 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 10 Mar 1997 13:39:57 +0000 Subject: [PATCH] (mime-article/dired-function): New variable; copied from tm-ftp.el. (mime-article/dired-function-for-one-frame, mime-article/decode-message/external-ftp): New function; copied from tm-ftp.el. --- mime-play.el | 33 ++++++++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) diff --git a/mime-play.el b/mime-play.el index 0c1c4c3..cfe59ad 100644 --- a/mime-play.el +++ b/mime-play.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) ;; Renamed: 1997/2/21 from tm-play.el -;; Version: $Id: mime-play.el,v 0.12 1997-03-07 16:27:04 morioka Exp $ +;; Version: $Id: mime-play.el,v 0.13 1997-03-10 13:39:57 morioka Exp $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -394,6 +394,37 @@ ))) +;;; @ message/external-body +;;; + +(defvar mime-article/dired-function + (if mime/use-multi-frame + (function dired-other-frame) + (function mime-article/dired-function-for-one-frame) + )) + +(defun mime-article/dired-function-for-one-frame (dir) + (let ((win (or (get-buffer-window mime::article/preview-buffer) + (get-largest-window)))) + (select-window win) + (dired dir) + )) + +(defun mime-article/decode-message/external-ftp (beg end cal) + (let* ((access-type (cdr (assoc "access-type" cal))) + (site (cdr (assoc "site" cal))) + (directory (cdr (assoc "directory" cal))) + (name (cdr (assoc "name" cal))) + (mode (cdr (assoc "mode" cal))) + (pathname (concat "/anonymous@" site ":" directory)) + ) + (message (concat "Accessing " (expand-file-name name pathname) "...")) + (funcall mime-article/dired-function pathname) + (goto-char (point-min)) + (search-forward name) + )) + + ;;; @ rot13-47 ;;; -- 1.7.10.4