From c96a88ca507f7a93e6fbb2e83e8fe0c505829a85 Mon Sep 17 00:00:00 2001 From: shuhei Date: Fri, 27 Apr 2001 13:26:47 +0000 Subject: [PATCH] (mime-entity-fetch-field): Would capitalize twice. --- mmbuffer.el | 2 +- mmexternal.el | 2 +- mmgeneric.el | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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)))) -- 1.7.10.4