From bbf307a7c275addaf03a99475bdfa4376828ae03 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 17 Mar 1997 13:46:57 +0000 Subject: [PATCH] (mime-view-entity-button-function): New implementation. --- mime-view.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/mime-view.el b/mime-view.el index b129e39..2f32693 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.43 $ +;; Version: $Revision: 0.44 $ ;; 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.43 1997-03-17 13:35:07 morioka Exp $") + "$Id: mime-view.el,v 0.44 1997-03-17 13:46:57 morioka Exp $") (defconst mime-view-version (get-version-string mime-view-RCS-ID)) @@ -227,7 +227,7 @@ Each elements are regexp of field-name. [mime-view.el]") )) -;;; @@ content button +;;; @@ entity button ;;; (defun mime-view-insert-entity-button (rcnum cinfo ctype params subj encoding) @@ -280,11 +280,14 @@ Each elements are regexp of field-name. [mime-view.el]") (defun mime-view-entity-button-function (rcnum cinfo ctype params subj encoding) "Insert entity button conditionally." - (if (and (consp rcnum) - (not (string= ctype "application/x-selection")) - ) + (or (null rcnum) + (string= ctype "application/x-selection") + (and (string= ctype "application/octet-stream") + (string= (mime::content-info/type + (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo)) + "multipart/encrypted")) (mime-view-insert-entity-button rcnum cinfo ctype params subj encoding) - )) + )) ;;; @@ content header filter -- 1.7.10.4