From a7a372cf603e87c8f8d5139210f8a8523babba6d Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 28 Aug 1998 08:14:27 +0000
Subject: [PATCH] (eword-encode-field): Use `eword-encode-string' instead of
 `tm-eword::encode-string'; abolish
 `tm-eword::encode-string'.

---
 eword-encode.el |   26 +++++++++++++++-----------
 1 file changed, 15 insertions(+), 11 deletions(-)

diff --git a/eword-encode.el b/eword-encode.el
index 6fdc0df..661de94 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -373,9 +373,9 @@ 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))
-  )
+;; (defun tm-eword::encode-string (column str &optional mode)
+;;   (tm-eword::encode-rwl column (tm-eword::split-string str mode))
+;;   )
 
 
 ;;; @ converter
@@ -530,6 +530,10 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 ;;; @ application interfaces
 ;;;
 
+(defun eword-encode-string (str &optional column mode)
+  (car (tm-eword::encode-rwl (or column 0) (tm-eword::split-string str mode)))
+  )
+
 (defun eword-encode-field (string)
   "Encode header field STRING, and return the result.
 A lexical token includes non-ASCII character is encoded as MIME
@@ -556,14 +560,18 @@ encoded-word.  ASCII token is not encoded."
 				     (+ (length field-name) 2) field-body))
 			       )
 			      (t
-			       (car (tm-eword::encode-string
-				     (1+ (length field-name))
-				     field-body 'text))
+                               ;; (car (tm-eword::encode-string
+                               ;;       (1+ (length field-name))
+                               ;;       field-body 'text))
+			       (eword-encode-string field-body
+						    (1+ (length field-name))
+						    'text)
 			       ))
 			)
 		  (concat field-name ": " ret)
 		)))
-	(car (tm-eword::encode-string 0 string))
+	;; (car (tm-eword::encode-string 0 string))
+	(eword-encode-string string 0)
 	)))
 
 (defun eword-in-subject-p ()
@@ -622,10 +630,6 @@ It refer variable `eword-field-encoding-method-alist'."
 	  ))
       )))
 
-(defun eword-encode-string (str &optional column mode)
-  (car (tm-eword::encode-rwl (or column 0) (tm-eword::split-string str mode)))
-  )
-
 
 ;;; @ end
 ;;;
-- 
1.7.10.4