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

diff --git a/mmbuffer.el b/mmbuffer.el
index f0e8643..db5323c 100644 (file)
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -166,7 +166,7 @@
            (when ret
              (or (symbolp field-name)
                  (setq field-name
-                       (intern (capitalize (capitalize field-name)))))
+                       (intern (capitalize field-name))))
              (mime-entity-set-original-header-internal
               entity
               (put-alist field-name ret

diff --git a/mmexternal.el b/mmexternal.el
index 9992156..d85fd7d 100644 (file)
--- a/mmexternal.el
+++ b/mmexternal.el
@@ -157,7 +157,7 @@
          (when ret
            (or (symbolp field-name)
                (setq field-name
-                     (intern (capitalize (capitalize field-name)))))
+                     (intern (capitalize field-name))))
            (mime-entity-set-original-header-internal
             entity
             (put-alist field-name ret

diff --git a/mmgeneric.el b/mmgeneric.el
index ff44bb1..ec01498 100644 (file)
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -57,7 +57,7 @@
 (luna-define-method mime-entity-fetch-field ((entity mime-entity)
                                             field-name)
   (or (symbolp field-name)
-      (setq field-name (intern (capitalize (capitalize field-name)))))
+      (setq field-name (intern (capitalize field-name))))
   (cdr (assq field-name
             (mime-entity-original-header-internal entity))))