From: morioka <morioka>
Date: Mon, 31 Aug 1998 12:09:16 +0000 (+0000)
Subject: Rename `tm-eword::mailbox-to-rwl' ->
X-Git-Tag: flim-1_9_1~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=70db684de6491ac6116b42cfca16af8edd93edb3;p=elisp%2Fflim.git

Rename `tm-eword::mailbox-to-rwl' ->
`eword-encode-mailbox-to-rword-list'.
---

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))