From 70db684de6491ac6116b42cfca16af8edd93edb3 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 31 Aug 1998 12:09:16 +0000
Subject: [PATCH] Rename `tm-eword::mailbox-to-rwl' ->
 `eword-encode-mailbox-to-rword-list'.

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

diff --git a/eword-encode.el b/eword-encode.el
index d3188b5..9528a9d 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -487,7 +487,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
       (eword-encode-addr-seq-to-rword-list (cdr addr-spec))
     ))
 
-(defun tm-eword::mailbox-to-rwl (mbox)
+(defun eword-encode-mailbox-to-rword-list (mbox)
   (let ((addr (nth 1 mbox))
 	(comment (nth 2 mbox))
 	dest)
@@ -505,14 +505,15 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
     dest))
 
 (defsubst eword-encode-addresses-to-rword-list (addresses)
-  (let ((dest (tm-eword::mailbox-to-rwl (car addresses))))
+  (let ((dest (eword-encode-mailbox-to-rword-list (car addresses))))
     (if dest
 	(while (setq addresses (cdr addresses))
-	  (setq dest (append dest
-			     '(("," nil nil))
-			     '((" " nil nil))
-			     (tm-eword::mailbox-to-rwl (car addresses))
-			     ))
+	  (setq dest
+		(append dest
+			'(("," nil nil))
+			'((" " nil nil))
+			(eword-encode-mailbox-to-rword-list (car addresses))
+			))
 	  ))
     dest))
 
-- 
1.7.10.4