X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-view.el;h=3891c5d3bd0344f95e81bc5752df733b8a5516ba;hb=be02d271efa23bd9aa22615dece3c4d226377441;hp=d51abf7142a9475732fcd3b6547aa9b5c9fdfff0;hpb=8d495c434bbf7da5246e9de6155e92b7391d4d0b;p=elisp%2Fsemi.git

diff --git a/mime-view.el b/mime-view.el
index d51abf7..3891c5d 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -270,12 +270,13 @@ mother-buffer."
 
 (defun mime-unify-situations (entity-situation
 			      condition situation-examples
-			      &optional required-name ignored-value)
+			      &optional required-name ignored-value
+			      every-situations)
   (let (ret)
     (in-calist-package 'mime-view)
     (setq ret
 	  (ctree-find-calist condition entity-situation
-			     mime-view-find-every-situations))
+			     every-situations))
     (if required-name
 	(setq ret (mime-delq-null-situation ret required-name ignored-value)))
     (or (assq 'ignore-examples entity-situation)
@@ -851,13 +852,11 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 	    (situation (car situations)))
 	(mime-display-entity child (if (= i p)
 				       situation
-				     (del-alist 'body-presentation-method
-						(copy-alist situation))))
-	)
+				     (put-alist 'body 'invisible
+						(copy-alist situation)))))
       (setq children (cdr children)
 	    situations (cdr situations)
-	    i (1+ i))
-      )))
+	    i (1+ i)))))
 
 
 ;;; @ acting-condition