From: shuhei <shuhei>
Date: Fri, 27 Apr 2001 13:26:27 +0000 (+0000)
Subject: (mime-entity-fetch-field): Would capitalize twice.
X-Git-Tag: flim-1_14-rfc2231-merged~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=de3da9447cbb150427193c9f412475842b2e9a45;p=elisp%2Fflim.git

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

diff --git a/mmbuffer.el b/mmbuffer.el
index 1447d17..a034f5a 100644
--- 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
--- 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
--- 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))))