X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=blobdiff_plain;f=mmexternal.el;h=9b4b18b41ba0807a7de2385057c5baa33e634bbd;hp=aafddcce53034435b6c4426e168afaa2fe82e61c;hb=dbd1b2b3b21004b1232a0b99bac45c913b6c5e08;hpb=03a49791badf61ed36a383bf04182c5ee2661cf7

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