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