2000-12-04 Daiki Ueno <ueno@unixuser.org>
[elisp/flim.git] / 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)
           )