From: morioka <morioka>
Date: Wed, 10 Jun 1998 11:09:50 +0000 (+0000)
Subject: (mime-raw-play-entity): Use `mime-entity-situation'.
X-Git-Tag: remi-1_6_0~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c0e2f82028117081f9c12c8807fa861c335dcdd;p=elisp%2Fsemi.git

(mime-raw-play-entity): Use `mime-entity-situation'.
---

diff --git a/mime-play.el b/mime-play.el
index da9d9c8..83ef4ca 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -136,15 +136,9 @@ It decodes the entity to call internal or external method.  The method
 is selected from variable `mime-acting-condition'.  If MODE is
 specified, play as it.  Default MODE is \"play\"."
   (let ((beg (mime-entity-point-min entity-info))
-	(end (mime-entity-point-max entity-info))
-	(content-type (mime-entity-content-type entity-info))
-	(encoding (mime-entity-encoding entity-info)))
-    (or content-type
-	(setq content-type (make-mime-content-type 'text 'plain)))
+	(end (mime-entity-point-max entity-info)))
     (let (method cal ret)
-      (setq cal (list* (cons 'major-mode major-mode)
-		       (cons 'encoding encoding)
-		       content-type))
+      (setq cal (mime-entity-situation entity-info))
       (if mode
 	  (setq cal (cons (cons 'mode mode) cal))
 	)
@@ -191,12 +185,9 @@ specified, play as it.  Default MODE is \"play\"."
 	     (mime-activate-external-method beg end ret)
 	     )
 	    (t
-	     (mime-show-echo-buffer
-	      "No method are specified for %s\n"
-	      (mime-type/subtype-string
-	       (mime-content-type-primary-type content-type)
-	       (mime-content-type-subtype content-type))
-	      )))
+	     (mime-show-echo-buffer "No method are specified for %s\n"
+				    (mime-entity-type/subtype entity-info))
+	     ))
       )))