From 5562c2a8d81464742bcaeb02da12970543e5118d Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 28 Aug 1998 08:40:48 +0000 Subject: [PATCH] (eword-encode-address-list): New function. (eword-encode-field): Use `eword-encode-address-list' instead of `ew-encode-address-list'; abolish `ew-encode-address-list'. --- eword-encode.el | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index 0a2bc4a..d90af2d 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -373,10 +373,6 @@ MODE is allows `text', `comment', `phrase' or nil. Default value is (list dest column) )) -;; (defun tm-eword::encode-string (column str &optional mode) -;; (tm-eword::encode-rwl column (tm-eword::split-string str mode)) -;; ) - ;;; @ converter ;;; @@ -520,11 +516,11 @@ MODE is allows `text', `comment', `phrase' or nil. Default value is )) dest)) -(defun ew-encode-address-list (column str) - (tm-eword::encode-rwl - column - (tm-eword::addresses-to-rwl (std11-parse-addresses-string str)) - )) +(defun eword-encode-address-list (string &optional column) + (car (tm-eword::encode-rwl + (or column 0) + (tm-eword::addresses-to-rwl (std11-parse-addresses-string string)) + ))) ;;; @ application interfaces @@ -556,21 +552,17 @@ encoded-word. ASCII token is not encoded." bcc resent-bcc dcc mime-version) ) - (car (ew-encode-address-list - (+ (length field-name) 2) field-body)) + (eword-encode-address-list + field-body (+ (length field-name) 2)) ) (t - ;; (car (tm-eword::encode-string - ;; (1+ (length field-name)) - ;; field-body 'text)) - (eword-encode-string field-body + (eword-encode-string field-body (1+ (length field-name)) 'text) )) ) (concat field-name ": " ret) ))) - ;; (car (tm-eword::encode-string 0 string)) (eword-encode-string string 0) ))) -- 1.7.10.4