From be02d271efa23bd9aa22615dece3c4d226377441 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 22 Feb 2000 22:22:42 +0000 Subject: [PATCH] (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. --- mime-view.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) 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 -- 1.7.10.4