From: ueno <ueno>
Date: Tue, 26 Dec 2000 11:09:07 +0000 (+0000)
Subject: * mime-play.el (mime-mailcap-method-messages-coding-system):
X-Git-Tag: semi-1_14_3~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ae67ae2641ec07e7f8492146ce0776991ed11b80;p=elisp%2Fsemi.git

* mime-play.el (mime-mailcap-method-messages-coding-system):
New user option.
(mime-activate-mailcap-method): Use it.
---

diff --git a/mime-play.el b/mime-play.el
index 82f3f69..6f642c6 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -135,6 +135,9 @@ specified, play as it.  Default MODE is \"play\"."
 
 (defvar mime-mailcap-method-filename-alist nil)
 
+(defvar mime-mailcap-method-messages-coding-system 'undecided
+  "Coding system for an external mailcap method.")
+
 (defun mime-activate-mailcap-method (entity situation)
   (let ((method (cdr (assoc 'method situation)))
 	(name (mime-entity-safe-filename entity)))
@@ -151,8 +154,10 @@ specified, play as it.  Default MODE is \"play\"."
 		  (mime-format-mailcap-command
 		   method
 		   (cons (cons 'filename name) situation))))
-	     (start-process command mime-echo-buffer-name
-			    shell-file-name shell-command-switch command)
+	     (binary-to-text-funcall
+	      #'mime-mailcap-method-messages-coding-system
+	      #'start-process command mime-echo-buffer-name
+	      shell-file-name shell-command-switch command)
 	     )))
       (set-alist 'mime-mailcap-method-filename-alist process name)
       (set-process-sentinel process 'mime-mailcap-method-sentinel)