From c8b678a4782200721b12f333bcc6a8c33f5496cd Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 12 Apr 1998 16:34:12 +0000 Subject: [PATCH] (mime-calist::field-match-method-as-default-rule): New function; setup for calist-field-match-method for 'header and 'body. --- mime-view.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/mime-view.el b/mime-view.el index 3a73c4e..91c4812 100644 --- a/mime-view.el +++ b/mime-view.el @@ -335,6 +335,21 @@ Each elements are regexp of field-name.") ;;; @@@ predicate function ;;; +(defun mime-calist::field-match-method-as-default-rule (calist + field-type field-value) + (let ((s-field (assq field-type calist))) + (cond ((null s-field) + (cons (cons field-type field-value) calist) + ) + (t calist)))) + +(define-calist-field-match-method + 'header #'mime-calist::field-match-method-as-default-rule) + +(define-calist-field-match-method + 'body #'mime-calist::field-match-method-as-default-rule) + + (defvar mime-preview-condition nil "Condition-tree about how to display entity.") -- 1.7.10.4