From ae67ae2641ec07e7f8492146ce0776991ed11b80 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 26 Dec 2000 11:09:07 +0000 Subject: [PATCH] * mime-play.el (mime-mailcap-method-messages-coding-system): New user option. (mime-activate-mailcap-method): Use it. --- mime-play.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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) -- 1.7.10.4