From f84b5d6b6825e60272970ff9c8ab63a5acdc3ad8 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 29 Apr 1998 14:42:42 +0000 Subject: [PATCH] (mime-view-acting-examples): Renamed from 'mime-user-acting-condition. --- mime-play.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/mime-play.el b/mime-play.el index 92e52c2..0f2f058 100644 --- a/mime-play.el +++ b/mime-play.el @@ -58,7 +58,7 @@ If MODE is specified, play as it. Default MODE is \"play\"." (goto-char mime-preview-after-decoded-position) ))))) -(defvar mime-user-acting-condition nil) +(defvar mime-view-acting-examples nil) (defun mime-raw-play-entity (entity-info &optional mode) "Play entity specified by ENTITY-INFO. @@ -92,9 +92,8 @@ specified, play as it. Default MODE is \"play\"." (setq cal (cons (cons 'mode mode) cal)) ) (setq ret - (or (ctree-match-calist mime-user-acting-condition cal) - (ctree-match-calist-partially - mime-user-acting-condition cal) + (or (ctree-match-calist mime-view-acting-examples cal) + (ctree-match-calist-partially mime-view-acting-examples cal) cal)) (setq ret (or (ctree-find-calist mime-acting-condition ret @@ -112,7 +111,7 @@ specified, play as it. Default MODE is \"play\"." (cdr (assq 'method situation))) situation))) ret))) - (ctree-set-calist-strictly 'mime-user-acting-condition ret) + (ctree-set-calist-strictly 'mime-view-acting-examples ret) ) (t (setq ret (car ret)) -- 1.7.10.4