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

diff --git a/eword-encode.el b/eword-encode.el
index b72b906..52390c7 100644 (file)
--- 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