From: tomo <tomo>
Date: Tue, 22 Feb 2000 22:22:42 +0000 (+0000)
Subject: (mime-unify-situations): Add new optional argument `every-situations';
X-Git-Tag: remi-1_14_1~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=be02d271efa23bd9aa22615dece3c4d226377441;p=elisp%2Fsemi.git

(mime-unify-situations): Add new optional argument `every-situations';
use it instead of `mime-view-find-every-situations'.
(mime-display-multipart/alternative): Modify `body' property instead
of `body-presentation-method' property of preview-situation.
---

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