From d61f21bafdec8bb1fa5c545e5dc88a891672f195 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 19 Sep 1998 18:12:09 +0000 Subject: [PATCH] (eword-encode-text): Use `encoded-text-encode-string'. (tm-eword::encoded-word-length): `q-encoding-encoded-length' was renamed to `Q-encoded-text-length'. --- eword-encode.el | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index d7b77eb..f8d60de 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -97,13 +97,7 @@ CHARSET is a symbol to indicate MIME charset of the encoded-word. ENCODING allows \"B\" or \"Q\". MODE is allows `text', `comment', `phrase' or nil. Default value is `phrase'." - (let ((text - (cond ((string= encoding "B") - (base64-encode-string string)) - ((string= encoding "Q") - (q-encoding-encode-string string mode)) - ) - )) + (let ((text (encoded-text-encode-string string encoding))) (if text (concat "=?" (upcase (symbol-name charset)) "?" encoding "?" text "?=") @@ -262,8 +256,7 @@ MODE is allows `text', `comment', `phrase' or nil. Default value is ) ((string-equal encoding "Q") (setq string (encode-mime-charset-string string charset)) - (q-encoding-encoded-length string - (ew-rword-type rword)) + (Q-encoded-text-length string (ew-rword-type rword)) ))) (if ret (cons (+ 7 (length (symbol-name charset)) ret) string) -- 1.7.10.4