From 4f440e998965eaee6553dd5a9bc00e3494522fbb Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 26 Oct 1998 05:35:40 +0000 Subject: [PATCH] (eword-encode-field-body): Don't eliminate top-spaces. --- eword-encode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index b72b906..52390c7 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -600,8 +600,8 @@ encoded-word. ASCII token is not encoded." "" (let (start) (if (symbolp field-name) - (setq start (+ (length (symbol-name field-name)) 2)) - (setq start (+ (length field-name) 2) + (setq start (1+ (length (symbol-name field-name)))) + (setq start (1+ (length field-name)) field-name (intern (capitalize field-name)))) (cond ((memq field-name '(Reply-To -- 1.7.10.4