From dc2cee43fc2a5b1190f30b7a87ad68b1da7c7908 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 5 Sep 1997 12:45:42 +0000 Subject: [PATCH] (mime-view-entity-button-function): Use `mime-entity-info-media-type' and `mime-entity-info-media-subtype' instead of `mime-entity-info-type/subtype'. --- mime-view.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/mime-view.el b/mime-view.el index 07bd94d..f53af32 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.106 $ +;; Version: $Revision: 0.107 $ ;; 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.106 1997-09-05 11:55:10 morioka Exp $") + "$Id: mime-view.el,v 0.107 1997-09-05 12:45:42 morioka Exp $") (defconst mime-view-version `,(get-version-string mime-view-RCS-ID)) @@ -284,9 +284,13 @@ Please redefine this function if you want to change default setting." (or (null rcnum) (string= ctype "application/x-selection") (and (string= ctype "application/octet-stream") - (string= (mime-entity-info-type/subtype - (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo)) - "multipart/encrypted")) + (let ((entity-info + (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo))) + (and (eq (mime-entity-info-media-type entity-info) + 'multipart) + (eq (mime-entity-info-media-subtype entity-info) + 'encrypted) + ))) (mime-view-insert-entity-button rcnum cinfo ctype params subj encoding) )) -- 1.7.10.4