From: morioka <morioka>
Date: Sun, 15 Mar 1998 13:36:18 +0000 (+0000)
Subject: (mime-view-entity-button-function): Use `mime-root-entity-p'.
X-Git-Tag: semi-1_1_0~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5c26f587b16801ba85892e61bbb754a4fce82f4b;p=elisp%2Fsemi.git

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

diff --git a/mime-view.el b/mime-view.el
index 8d5206c..05d6b42 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -159,7 +159,7 @@ Please redefine this function if you want to change default setting."
   (let ((entity-node-id (mime-entity-node-id entity))
 	(media-type (mime-entity-media-type entity))
 	(media-subtype (mime-entity-media-subtype entity)))
-    (or (null entity-node-id)
+    (or (mime-root-entity-p entity)
 	(and (eq media-type 'application)
 	     (or (eq media-subtype 'x-selection)
 		 (and (eq media-subtype 'octet-stream)