(mime-entity-read-field): Would capitalize twice.

diff --git a/mime.el b/mime.el
index 5709032..bcb49dc 100644 (file)
--- a/mime.el
+++ b/mime.el
@@ -337,7 +337,7 @@ default value."
                 (prog1
                     field-name
                   (setq field-name (symbol-name field-name)))
-              (intern (capitalize (capitalize field-name))))))
+              (intern (capitalize field-name)))))
     (cond ((eq sym 'Content-Type)
           (mime-entity-content-type entity)
           )