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

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

diff --git a/mmbuffer.el b/mmbuffer.el
index f0e8643..db5323c 100644
--- 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
--- 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
--- 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))))