(mime-view-display-entity): Use `mime-entity-info-media-type' and

`mime-entity-info-media-subtype' instead of
`mime-entity-info-type/subtype'.

diff --git a/mime-view.el b/mime-view.el
index f53af32..5d48062 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;     Renamed: 1994/8/31 from tm-body.el
 ;;     Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.107 $
+;; Version: $Revision: 0.108 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.107 1997-09-05 12:45:42 morioka Exp $")
+  "$Id: mime-view.el,v 0.108 1997-09-05 12:49:47 morioka Exp $")
 
 (defconst mime-view-version
   `,(get-version-string mime-view-RCS-ID))
@@ -504,7 +504,13 @@ The compressed face will be piped to this command.")
   "Display entity from content-info CONTENT."
   (let* ((beg (mime-entity-info-point-min content))
         (end (mime-entity-info-point-max content))
-        (ctype (mime-entity-info-type/subtype content))
+        (media-type (mime-entity-info-media-type content))
+        (media-subtype (mime-entity-info-media-subtype content))
+        (ctype (if media-type
+                   (if media-subtype
+                       (format "%s/%s" media-type media-subtype)
+                     (symbol-name media-type)
+                     )))
         (params (mime-entity-info-parameters content))
         (encoding (mime-entity-info-encoding content))
         (rcnum (mime-entity-info-rnum content))