* eword-encode.el (eword-encode-field-body): Unfold `field-body'.

diff --git a/ChangeLog b/ChangeLog
index 05c5dfa..2c6b5b0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-10-27  Tanaka Akira  <akr@jaist.ac.jp>
+
+       * eword-encode.el (eword-encode-field-body): Unfold `field-body'.
+
 1998-10-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * FLIM: Version 1.11.2 (Heij\e-Dò)\e-A was released.

diff --git a/eword-encode.el b/eword-encode.el
index 52390c7..fecd854 100644 (file)
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -596,6 +596,7 @@ Optional argument COLUMN is start-position of the field."
   "Encode FIELD-BODY as FIELD-NAME, and return the result.
 A lexical token includes non-ASCII character is encoded as MIME
 encoded-word.  ASCII token is not encoded."
+  (setq field-body (std11-unfold-string field-body))
   (if (string= field-body "")
       ""
     (let (start)