From 6626e7f33d40820fc34d25e1a66fee601911e42f Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 28 Aug 1998 08:59:50 +0000 Subject: [PATCH] (eword-encode-field): Use `capitalize' instead of `downcase' for `field-name'. --- eword-encode.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index ff09e94..c9e6f15 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -549,18 +549,18 @@ encoded-word. ASCII token is not encoded." (if (setq ret (cond ((string= field-body "") "") ((memq (setq field-name-symbol - (intern (downcase field-name))) - '(reply-to - from sender - resent-reply-to resent-from - resent-sender to resent-to - cc resent-cc - bcc resent-bcc dcc)) + (intern (capitalize field-name))) + '(Reply-To + From Sender + Resent-Reply-To Resent-From + Resent-Sender To Resent-To + Cc Resent-Cc + Bcc Resent-Bcc Dcc)) (eword-encode-address-list field-body (+ (length field-name) 2)) ) ((memq field-name-symbol - '(mime-version user-agent)) + '(Mime-Version User-Agent)) (eword-encode-structured-field-body field-body (+ (length field-name) 2)) ) -- 1.7.10.4