From 07b6b1776cfb893f40c4080392e2a0dd9ef64027 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 27 Apr 1998 22:20:14 +0000 Subject: [PATCH] (mime-raw-play-entity): Refer 'mime-view-find-every-acting-situation. --- mime-play.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/mime-play.el b/mime-play.el index 127e144..4cce0e9 100644 --- a/mime-play.el +++ b/mime-play.el @@ -32,8 +32,6 @@ (eval-when-compile (require 'mime-text)) -(defvar mime-user-acting-condition nil) - ;;; @ content decoder ;;; @@ -60,6 +58,8 @@ If MODE is specified, play as it. Default MODE is \"play\"." (goto-char mime-preview-after-decoded-position) ))))) +(defvar mime-user-acting-condition nil) + (defun mime-raw-play-entity (entity-info &optional mode) "Play entity specified by ENTITY-INFO. It decodes the entity to call internal or external method. The method @@ -95,8 +95,10 @@ specified, play as it. Default MODE is \"play\"." (or (ctree-match-calist mime-user-acting-condition cal) cal)) (setq ret - (or (ctree-find-calist mime-acting-condition ret 'all) - (ctree-find-calist mime-acting-condition cal 'all) + (or (ctree-find-calist mime-acting-condition ret + mime-view-find-every-acting-situation) + (ctree-find-calist mime-acting-condition cal + mime-view-find-every-acting-situation) )) (cond ((cdr ret) (setq ret (select-menu-alist -- 1.7.10.4