From: morioka <morioka>
Date: Sun, 12 Apr 1998 16:34:12 +0000 (+0000)
Subject: (mime-calist::field-match-method-as-default-rule): New function; setup
X-Git-Tag: semi-1_2_2~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c8b678a4782200721b12f333bcc6a8c33f5496cd;p=elisp%2Fsemi.git

(mime-calist::field-match-method-as-default-rule): New function; setup
for calist-field-match-method for 'header and 'body.
---

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.")