From df52fbd605a6ed552ee3c75e7ca6162bf308d5eb Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 31 Aug 1998 11:25:08 +0000 Subject: [PATCH] (eword-encode-unstructured-field-body): New function. (eword-encode-field): Use `eword-encode-unstructured-field-body'. --- eword-encode.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) 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) -- 1.7.10.4