From: morioka <morioka>
Date: Mon, 26 Oct 1998 05:35:40 +0000 (+0000)
Subject: (eword-encode-field-body): Don't eliminate top-spaces.
X-Git-Tag: flim-1_11_2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4f440e998965eaee6553dd5a9bc00e3494522fbb;p=elisp%2Fflim.git

(eword-encode-field-body): Don't eliminate top-spaces.
---

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