From: morioka <morioka>
Date: Sun, 15 Mar 1998 14:34:49 +0000 (+0000)
Subject: (mime-view-entity-button-visible-p): New function.
X-Git-Tag: semi-1_1_0~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf42316783520420a485a82d29825aa4d330c16c;p=elisp%2Fsemi.git

(mime-view-entity-button-visible-p): New function.
(mime-view-entity-button-function): Use function
`mime-view-entity-button-visible-p'.
---

diff --git a/mime-view.el b/mime-view.el
index a47be9a..f8a44c4 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -153,24 +153,30 @@ message/partial, it is called `mother-buffer'.")
      (function mime-preview-play-current-entity))
     ))
 
-(defun mime-view-entity-button-function (entity message-info subj)
-  "Insert entity-button of ENTITY conditionally.
+(defun mime-view-entity-button-visible-p (entity message-info)
+  "Return non-nil if header of ENTITY is visible.
 Please redefine this function if you want to change default setting."
-  (let ((media-type (mime-entity-media-type entity))
-	(media-subtype (mime-entity-media-subtype entity)))
-    (or (mime-root-entity-p entity)
-	(and (eq media-type 'application)
-	     (or (eq media-subtype 'x-selection)
-		 (and (eq media-subtype 'octet-stream)
+  (and (not (mime-root-entity-p entity))
+       (let ((media-type (mime-entity-media-type entity))
+	     (media-subtype (mime-entity-media-subtype entity)))
+	 (or (not (eq media-type 'application))
+	     (and (not (eq media-subtype 'x-selection))
+		  (or (not (eq media-subtype 'octet-stream))
 		      (let ((mother-entity
 			     (mime-raw-entity-parent entity message-info)))
-			(and (eq (mime-entity-media-type mother-entity)
-				 'multipart)
-			     (eq (mime-entity-media-subtype mother-entity)
-				 'encrypted)
-			     )))))
-	(mime-view-insert-entity-button entity message-info subj)
-	)))
+			(or (not (eq (mime-entity-media-type mother-entity)
+				     'multipart))
+			    (not (eq (mime-entity-media-subtype mother-entity)
+				     'encrypted)))
+			)
+		      ))))))
+
+(defun mime-view-entity-button-function (entity message-info subj)
+  "Insert entity-button of ENTITY conditionally.
+Please redefine this function if you want to change default setting."
+  (if (mime-view-entity-button-visible-p entity message-info)
+      (mime-view-insert-entity-button entity message-info subj)
+    ))
 
 
 ;;; @ entity-header