From: ueno <ueno>
Date: Mon, 21 Mar 2005 01:31:41 +0000 (+0000)
Subject: * mime-view.el (mime-preview-toggle-display): When both "type" and
X-Git-Tag: semi-1_14-wl-root~29
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c838e1096fb7683ac3aed4834d1c519b8a3da4c0;p=elisp%2Fsemi.git

* mime-view.el (mime-preview-toggle-display): When both "type" and
"*type" conditions are not specified, the entity should be regarded
as invisible.
---

diff --git a/ChangeLog b/ChangeLog
index ad44ba0..e5fad25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-24   Daiki Ueno  <ueno@unixuser.org>
+
+	* mime-view.el (mime-preview-toggle-display): When both "type" and
+	"*type" conditions are not specified, the entity should be regarded
+	as invisible.
+
 2004-09-27  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* mime-edit.el (mime-edit-temp-message-buffer): Define.
diff --git a/mime-view.el b/mime-view.el
index cd0e80a..6155b60 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1819,9 +1819,9 @@ If LINES is negative, scroll up LINES lines."
 	  (display)
 	  (t
 	   (setq display
-		 (eq (cdr (or (assq sym situation)
-			      (assq type situation)))
-		     'invisible))))
+		 (memq (cdr (or (assq sym situation)
+				(assq type situation)))
+		       '(nil invisible)))))
     (setq situation (put-alist sym (if display
 				       'visible
 				     'invisible)