From: morioka <morioka>
Date: Sat, 23 Jan 1999 15:39:11 +0000 (+0000)
Subject: (mime-field-parser-alist): Change to set parser for tokens instead of
X-Git-Tag: flim-1_12-199901231900~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8e2dea37380e8e615fcfb35e9d68fbc98d74d182;p=elisp%2Fflim.git

(mime-field-parser-alist): Change to set parser for tokens instead of
string.
(mime-read-field): Use `eword-lexical-analyze' before parsing.
---

diff --git a/mime.el b/mime.el
index beee7a7..5f4fe72 100644
--- a/mime.el
+++ b/mime.el
@@ -245,19 +245,30 @@ If MESSAGE is specified, it is regarded as root entity."
 	)))
 
 (defvar mime-field-parser-alist
-  '((From		. std11-parse-addresses-string)
-    (Resent-From	. std11-parse-addresses-string)
-    (To			. std11-parse-addresses-string)
-    (Resent-To		. std11-parse-addresses-string)
-    (Cc			. std11-parse-addresses-string)
-    (Resent-Cc		. std11-parse-addresses-string)
-    (Bcc		. std11-parse-addresses-string)
-    (Resent-Bcc		. std11-parse-addresses-string)
-    (Reply-To 		. std11-parse-addresses-string)
-    (Resent-Reply-To	. std11-parse-addresses-string)
-
-    (Sender		. std11-parse-address-string)
-    (Resent-Sender	. std11-parse-address-string)
+  '((Return-Path	. std11-parse-route-addr)
+    
+    (Reply-To 		. std11-parse-addresses)
+    
+    (Sender		. std11-parse-mailbox)
+    (From		. std11-parse-addresses)
+
+    (Resent-Reply-To	. std11-parse-addresses)
+    
+    (Resent-Sender	. std11-parse-mailbox)
+    (Resent-From	. std11-parse-addresses)
+
+    (To			. std11-parse-addresses)
+    (Resent-To		. std11-parse-addresses)
+    (Cc			. std11-parse-addresses)
+    (Resent-Cc		. std11-parse-addresses)
+    (Bcc		. std11-parse-addresses)
+    (Resent-Bcc		. std11-parse-addresses)
+    
+    (Message-Id		. std11-parse-msg-id)
+    (Recent-Message-Id	. std11-parse-msg-id)
+    
+    (In-Reply-To	. std11-parse-msg-ids)
+    (References		. std11-parse-msg-ids)
     ))
 
 (defun mime-read-field (field-name &optional entity)
@@ -285,7 +296,8 @@ If MESSAGE is specified, it is regarded as root entity."
 			 (cdr (assq field-name mime-field-parser-alist)))
 		   (setq field
 			 (if parser
-			     (funcall parser field-body)
+			     (funcall parser
+				      (eword-lexical-analyze field-body))
 			   (mime-decode-field-body
 			    field-body field-name 'native)
 			   ))