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

diff --git a/mmbuffer.el b/mmbuffer.el
index 1447d17..a034f5a 100644 (file)
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -174,8 +174,7 @@
          (let ((ret (std11-fetch-field field-name)))
            (when ret
              (or (symbolp field-name)
-                 (setq field-name
-                       (intern (capitalize (capitalize field-name)))))
+                 (setq 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 aafddcc..9b4b18b 100644 (file)
--- a/mmexternal.el
+++ b/mmexternal.el
@@ -156,8 +156,7 @@
        (let ((ret (std11-fetch-field field-name)))
          (when ret
            (or (symbolp field-name)
-               (setq field-name
-                     (intern (capitalize (capitalize field-name)))))
+               (setq 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 532dfd9..4b632f3 100644 (file)
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -59,7 +59,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))))