From a666c1ec2cfb6352e0950aa26dfef439c157bcf5 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 27 Dec 2000 10:53:32 +0000 Subject: [PATCH 1/1] (mime-play-message-coding-system): Renamed from `mime-mailcap-method-messages-coding-system'. --- mime-play.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/mime-play.el b/mime-play.el index 250a4d4..2bb466b 100644 --- a/mime-play.el +++ b/mime-play.el @@ -46,6 +46,9 @@ If t, it means current directory." (defvar mime-play-find-every-situations t "*Find every available situations if non-nil.") +(defvar mime-play-message-coding-system nil + "Coding system to be used for external MIME playback method.") + ;;; @ content decoder ;;; @@ -135,9 +138,6 @@ 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))) @@ -145,8 +145,7 @@ specified, play as it. Default MODE is \"play\"." (if (and name (not (string= name ""))) (expand-file-name name temporary-file-directory) (make-temp-name - (expand-file-name "EMI" temporary-file-directory)) - )) + (expand-file-name "EMI" temporary-file-directory)))) (mime-write-entity-content entity name) (message "External method is starting...") (let ((process @@ -155,7 +154,7 @@ specified, play as it. Default MODE is \"play\"." method (cons (cons 'filename name) situation)))) (binary-to-text-funcall - mime-mailcap-method-messages-coding-system + mime-play-message-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) -- 1.7.10.4