From: shuhei-k <shuhei-k>
Date: Fri, 19 Jun 1998 14:13:37 +0000 (+0000)
Subject: (mime-entity-read-field): Fix typo.
X-Git-Tag: flim-1_5_0~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=174e9b33467bf47e05487a84943a8c2b8b74e40c;p=elisp%2Fflim.git

(mime-entity-read-field): Fix typo.
Use `eword-decode-ignored-field-list'.
---

diff --git a/mime-lib.el b/mime-lib.el
index 955b53f..30ee595 100644
--- a/mime-lib.el
+++ b/mime-lib.el
@@ -67,17 +67,20 @@
 	   (or field
 	       (let ((field-body (mime-entity-fetch-field entity field-name)))
 		 (when field-body
-		   (cond ((memq field-name '(From
-					     To Recent-To
-					     Cc Recent-Cc
-					     Bcc Resent-Bcc))
+		   (cond ((memq field-name '(From Resent-From
+					     To Resent-To
+					     Cc Resent-Cc
+					     Bcc Resent-Bcc
+					     Reply-To Resent-Reply-To))
 			  (setq field (std11-parse-addresses
 				       (eword-lexical-analyze field-body)))
 			  )
-			 ((eq field-name 'Sender)
+			 ((eq field-name '(Sender Resent-Sender))
 			  (setq field (std11-parse-address
 				       (eword-lexical-analyze field-body)))
 			  )
+			 ((memq field-name eword-decode-ignored-field-list)
+			  (setq field field-body))
 			 ((memq field-name eword-decode-structured-field-list)
 			  (setq field (eword-decode-structured-field-body
 				       field-body)))