From: morioka <morioka>
Date: Sat, 19 Sep 1998 18:12:09 +0000 (+0000)
Subject: (eword-encode-text): Use `encoded-text-encode-string'.
X-Git-Tag: chao-1_9-2-199811302358~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d61f21bafdec8bb1fa5c545e5dc88a891672f195;p=elisp%2Fflim.git

(eword-encode-text): Use `encoded-text-encode-string'.
(tm-eword::encoded-word-length): `q-encoding-encoded-length' was
renamed to `Q-encoded-text-length'.
---

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)