X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=mime-view.el;h=2a30e18c73bddf2ad5d57dd38c2b5082f14b428a;hb=39725d24b7906f6cc7b92869604ae1372c8a28a8;hp=51938b7f90c8ed4f48a0c5ff5dc7ec18d43eb9b6;hpb=3a152807002ffad73a6700816229e7bd9301efda;p=elisp%2Fsemi.git

diff --git a/mime-view.el b/mime-view.el
index 51938b7..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
@@ -768,9 +771,9 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 	  (mime-insert-header entity
 			      mime-view-ignored-field-list
 			      mime-view-visible-field-list))
-	(goto-char (point-max))
 	(run-hooks 'mime-display-header-hook)
 	(put-text-property nhb (point-max) 'mime-view-entity-header entity)
+	(goto-char (point-max))
 	(insert "\n")
 	)
       (setq nbb (point))