;;; @@@ 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)))
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
(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))