From 88207709503e466d0c157bc8122f84f88f9d6111 Mon Sep 17 00:00:00 2001 From: ari Date: Sun, 14 Dec 2003 12:49:38 +0000 Subject: [PATCH] * mime-play.el (mime-activate-mailcap-method): Don't use `binary-to-text-funcall'. (Thanks to TANAKA Shingo) --- ChangeLog | 5 +++++ mime-play.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 75f68b4..d543913 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-05-18 ARISAWA Akihiro + + * mime-play.el (mime-activate-mailcap-method): Don't use + `binary-to-text-funcall'. (Thanks to TANAKA Shingo) + 2003-12-14 Tatsuya Kinoshita * 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 --- 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)))) -- 1.7.10.4