From: morioka <morioka>
Date: Fri, 28 Aug 1998 08:59:50 +0000 (+0000)
Subject: (eword-encode-field): Use `capitalize' instead of `downcase' for
X-Git-Tag: flim-1_9_1~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6626e7f33d40820fc34d25e1a66fee601911e42f;p=elisp%2Fflim.git

(eword-encode-field): Use `capitalize' instead of `downcase' for
`field-name'.
---

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))
 			       )