* mime-play.el (mime-activate-mailcap-method): Don't use

`binary-to-text-funcall'. (Thanks to TANAKA Shingo)

diff --git a/ChangeLog b/ChangeLog
index 75f68b4..d543913 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-18  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
+
+       * mime-play.el (mime-activate-mailcap-method): Don't use
+       `binary-to-text-funcall'. (Thanks to TANAKA Shingo)
+       
 2003-12-14  Tatsuya Kinoshita  <tats@vega.ocn.ne.jp>
 
        * mime-edit.el (mime-charset-type-list): Add entry for iso-8859-1[45].

diff --git a/mime-play.el b/mime-play.el
index a96934e..846f8cc 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -151,10 +151,9 @@ specified, play as it.  Default MODE is \"play\"."
           (let ((command
                  (mime-format-mailcap-command
                   method
-                  (cons (cons 'filename name) situation))))
-            (binary-to-text-funcall
-             mime-play-messages-coding-system
-             #'start-process command mime-echo-buffer-name
+                  (cons (cons 'filename name) situation)))
+                 (coding-system-for-read mime-play-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))))