X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-ew-e.el;h=f500554a422271c7f7e87d456bd71f7add4a1036;hb=80871efc12c5b65a0780f0084c087076eb3bcbc8;hp=a01fb902c1df72b30776f82d378c06165255d4c1;hpb=15cb3afb2b5a34521da0c387f61bda4a72998615;p=elisp%2Ftm.git

diff --git a/tm-ew-e.el b/tm-ew-e.el
index a01fb90..f500554 100644
--- a/tm-ew-e.el
+++ b/tm-ew-e.el
@@ -6,7 +6,7 @@
 ;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Revision: 7.17 $
+;;; Version: $Revision: 7.18 $
 ;;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -36,7 +36,7 @@
 ;;;
 
 (defconst tm-ew-e/RCS-ID
-  "$Id: tm-ew-e.el,v 7.17 1996/05/04 04:58:37 morioka Exp $")
+  "$Id: tm-ew-e.el,v 7.18 1996/05/09 18:08:47 morioka Exp $")
 (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
 
 
@@ -244,13 +244,11 @@
 	ret)
     (setq ret
 	  (cond ((equal encoding "B")
-		 (setq string
-		       (mime/convert-string-from-emacs string charset))
+		 (setq string (mime-charset-encode-string string charset))
 		 (base64-length string)
 		 )
 		((equal encoding "Q")
-		 (setq string
-		       (mime/convert-string-from-emacs string charset))
+		 (setq string (mime-charset-encode-string string charset))
 		 (q-encoding-length string)
 		 )))
     (if ret