From: tomo <tomo>
Date: Fri, 30 Jun 2000 06:03:44 +0000 (+0000)
Subject: (mime-entity-read-field): Fix a bug when FIELD-NAME is a string.
X-Git-Tag: chao-1_14_1~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7f7a90f31dac5c4e08dead0c4c8b2fa84e669e73;p=elisp%2Fflim.git

(mime-entity-read-field): Fix a bug when FIELD-NAME is a string.
---

diff --git a/mime.el b/mime.el
index 0f9ea4a..328d599 100644
--- a/mime.el
+++ b/mime.el
@@ -321,7 +321,7 @@ If MESSAGE is specified, it is regarded as root entity."
 		 (prog1
 		     field-name
 		   (setq field-name (symbol-name field-name)))
-	       (capitalize (capitalize field-name)))))
+	       (intern (capitalize (capitalize field-name))))))
     (cond ((eq sym 'Content-Type)
 	   (mime-entity-content-type entity)
 	   )