(mime-entity-read-field): Fix a bug when FIELD-NAME is a string.
authortomo <tomo>
Fri, 30 Jun 2000 06:03:44 +0000 (06:03 +0000)
committertomo <tomo>
Fri, 30 Jun 2000 06:03:44 +0000 (06:03 +0000)
mime.el

diff --git a/mime.el b/mime.el
index 0f9ea4a..328d599 100644 (file)
--- 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)
           )