From 5612dbb35f01eb3d4c547a60e9596750c14044c2 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 5 Sep 1997 12:49:47 +0000 Subject: [PATCH] (mime-view-display-entity): Use `mime-entity-info-media-type' and `mime-entity-info-media-subtype' instead of `mime-entity-info-type/subtype'. --- mime-view.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/mime-view.el b/mime-view.el index f53af32..5d48062 100644 --- 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)) -- 1.7.10.4