From: morioka <morioka>
Date: Mon, 31 Aug 1998 11:25:08 +0000 (+0000)
Subject: (eword-encode-unstructured-field-body): New function.
X-Git-Tag: flim-1_9_1~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df52fbd605a6ed552ee3c75e7ca6162bf308d5eb;p=elisp%2Fflim.git

(eword-encode-unstructured-field-body): New function.
(eword-encode-field): Use `eword-encode-unstructured-field-body'.
---

diff --git a/eword-encode.el b/eword-encode.el
index 21bdbfd..3a088ba 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -544,6 +544,12 @@ Optional argument COLUMN is start-position of the field."
 	(eword-addr-seq-to-rwl (std11-lexical-analyze string))
 	)))
 
+(defun eword-encode-unstructured-field-body (string &optional column)
+  "Encode header field STRING as unstructured field, and return the result.
+Optional argument COLUMN is start-position of the field."
+  (car (tm-eword::encode-rwl (or column 0)
+			     (tm-eword::split-string string 'text))))
+
 (defun eword-encode-field (string)
   "Encode header field STRING, and return the result.
 A lexical token includes non-ASCII character is encoded as MIME
@@ -575,9 +581,8 @@ encoded-word.  ASCII token is not encoded."
 				field-body (+ (length field-name) 2))
 			       )
 			      (t
-                               (eword-encode-string field-body
-						    (1+ (length field-name))
-						    'text)
+                               (eword-encode-unstructured-field-body
+				field-body (1+ (length field-name)))
 			       ))
 			)
 		  (concat field-name ": " ret)