From 7f6a94be0f428775d861cf0e2a09e32a435686cc Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 12 Mar 1998 21:30:16 +0000 Subject: [PATCH] Merge Semi-Himi-. --- mime-play.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/mime-play.el b/mime-play.el index 65b9fcf..435aa46 100644 --- a/mime-play.el +++ b/mime-play.el @@ -63,10 +63,14 @@ If MODE is specified, play as it. Default MODE is \"play\"." (defun mime-playback-entity (cinfo &optional mode) (let ((beg (mime-entity-info-point-min cinfo)) (end (mime-entity-info-point-max cinfo)) - (ctype (or (mime-entity-info-type/subtype cinfo) "text/plain")) + (c-type (mime-entity-info-media-type cinfo)) + (c-subtype (mime-entity-info-media-subtype cinfo)) (params (mime-entity-info-parameters cinfo)) (encoding (mime-entity-info-encoding cinfo)) ) + (or c-type + (setq c-type 'text + c-subtype 'plain)) ;; Check for VM (if (< beg (point-min)) (setq beg (point-min)) @@ -75,7 +79,8 @@ If MODE is specified, play as it. Default MODE is \"play\"." (setq end (point-max)) ) (let (method cal ret) - (setq cal (list* (cons 'type ctype) + (setq cal (list* (cons 'type c-type) + (cons 'subtype c-subtype) (cons 'encoding encoding) (cons 'major-mode major-mode) params)) -- 1.7.10.4