merge from semi-1_14 branch:

* 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 984dcbf..c085143 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 543d702..8223ab3 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -145,11 +145,10 @@ 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
-             shell-file-name shell-command-switch command))))
+                  (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))))