From 1f1c3bc3007736938a257d9e1a2a6cf0267dd80f Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 5 Sep 1997 12:52:11 +0000 Subject: [PATCH] (mime-view-follow-current-entity): Use `mime-entity-info-media-type' and `mime-entity-info-media-subtype' instead of `mime-entity-info-type/subtype'. --- mime-view.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/mime-view.el b/mime-view.el index 5d48062..0a12f4f 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.108 $ +;; Version: $Revision: 0.109 $ ;; 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.108 1997-09-05 12:49:47 morioka Exp $") + "$Id: mime-view.el,v 0.109 1997-09-05 12:52:11 morioka Exp $") (defconst mime-view-version `,(get-version-string mime-view-RCS-ID)) @@ -1006,8 +1006,9 @@ It calls following-method selected from variable (concat "^" (apply (function regexp-or) fields) ":") "")))) - (if (string= (mime-entity-info-type/subtype ci) - "message/rfc822") + (if (and + (eq (mime-entity-info-media-type ci) 'message) + (eq (mime-entity-info-media-subtype ci) 'rfc822)) nil (if str (insert str) -- 1.7.10.4