From: morioka <morioka>
Date: Sun, 3 May 1998 17:50:20 +0000 (+0000)
Subject: (mime-activate-mailcap-method): New function.
X-Git-Tag: semi-1_4_0~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f05793f2862b9c1b4b8eb242dcc0da206ddd48e;p=elisp%2Fsemi.git

(mime-activate-mailcap-method): New function.
(mime-raw-play-entity): Use 'mime-activate-mailcap-method for mailcap
method.
---

diff --git a/mime-play.el b/mime-play.el
index 17bc7b1..c64c4d1 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -176,6 +176,9 @@ specified, play as it.  Default MODE is \"play\"."
 		  (fboundp method))
 	     (funcall method beg end ret)
 	     )
+	    ((stringp method)
+	     (mime-activate-mailcap-method beg end ret)
+	     )
 	    ((and (listp method)(stringp (car method)))
 	     (mime-activate-external-method beg end ret)
 	     )
@@ -191,6 +194,26 @@ specified, play as it.  Default MODE is \"play\"."
 ;;; @ external decoder
 ;;;
 
+(defun mime-activate-mailcap-method (start end situation)
+  (save-excursion
+    (save-restriction
+      (narrow-to-region start end)
+      (goto-char start)
+      (let ((method (cdr (assoc 'method situation)))
+	    (name (mime-raw-get-filename situation)))
+	(mime-write-decoded-region (if (re-search-forward "^$" end t)
+				       (1+ (match-end 0))
+				     (point-min))
+				   end name
+				   (cdr (assq 'encoding situation)))
+	(message "External method is starting...")
+	(let ((command (format method name)))
+	  (start-process command mime-echo-buffer-name
+			 shell-file-name shell-command-switch command)
+	  )
+	(mime-show-echo-buffer)
+	))))
+
 (defun mime-activate-external-method (beg end cal)
   (save-excursion
     (save-restriction