From: morioka <morioka>
Date: Thu, 27 May 1999 11:02:20 +0000 (+0000)
Subject: (mime-view): New calist-package.
X-Git-Tag: semi-1_13_5~20
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f4b487a782bcfadaf8834e5b3cbb1e82b5b4ee9b;p=elisp%2Fsemi.git

(mime-view): New calist-package.
(mime-display-entity): Enter to the calist-package `mime-view' before
call `ctree-match-calist'.
---

diff --git a/mime-view.el b/mime-view.el
index 086bd16..2a30e18 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -368,6 +368,8 @@ Each elements are regexp of field-name.")
 ;;; @@@ predicate function
 ;;;
 
+(in-calist-package 'mime-view)
+
 (defun mime-calist::field-match-method-as-default-rule (calist
 							field-type field-value)
   (let ((s-field (assq field-type calist)))
@@ -738,6 +740,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 	 e nb ne nhb nbb)
     (set-buffer raw-buffer)
     (goto-char start)
+    (in-calist-package 'mime-view)
     (or situation
 	(setq situation
 	      (or (ctree-match-calist mime-preview-condition