From: morioka <morioka>
Date: Sun, 19 Apr 1998 08:05:25 +0000 (+0000)
Subject: (mime-view-display-message): Check 'message-button is 'visible.
X-Git-Tag: semi-1_2_4~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7d7dd0b2bc9737193a25f42a082eb95d809615a0;p=elisp%2Fsemi.git

(mime-view-display-message): Check 'message-button is 'visible.
(mime-view-display-entity): Check 'header is 'visible.
---

diff --git a/mime-view.el b/mime-view.el
index fad02fd..adba833 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -699,7 +699,7 @@ The compressed face will be piped to this command.")
 	    (cdr (assq 'message-button situation)))
 	   (body-presentation-method
 	    (cdr (assq 'body-presentation-method situation))))
-      (when message-button
+      (when (eq message-button 'visible)
 	(goto-char (point-max))
 	(mime-view-insert-entity-button message-info message-info subj)
 	)
@@ -765,7 +765,7 @@ The compressed face will be piped to this command.")
 	   (button-is-invisible
 	    (eq (cdr (assq 'entity-button situation)) 'invisible))
 	   (header-is-visible
-	    (cdr (assq 'header situation)))
+	    (eq (cdr (assq 'header situation)) 'visible))
 	   (body-presentation-method
 	    (cdr (assq 'body-presentation-method situation))))
       (set-buffer obuf)