From: morioka <morioka>
Date: Mon, 31 Aug 1998 12:02:19 +0000 (+0000)
Subject: Rename `eword-encode-addresses-to-rwl' ->
X-Git-Tag: flim-1_9_1~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=67b0b6cc31a26b7004fffe7bf3f80f3f8d6e527c;p=elisp%2Fflim.git

Rename `eword-encode-addresses-to-rwl' ->
`eword-encode-addresses-to-rword-list'.
---

diff --git a/eword-encode.el b/eword-encode.el
index 3574c16..95996ae 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -504,7 +504,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 		      )))
     dest))
 
-(defsubst eword-encode-addresses-to-rwl (addresses)
+(defsubst eword-encode-addresses-to-rword-list (addresses)
   (let ((dest (tm-eword::mailbox-to-rwl (car addresses))))
     (if dest
 	(while (setq addresses (cdr addresses))
@@ -531,10 +531,10 @@ Default value is `phrase'."
 (defun eword-encode-address-list (string &optional column)
   "Encode header field STRING as list of address, and return the result.
 Optional argument COLUMN is start-position of the field."
-  (car (eword-encode-rword-list
-	(or column 0)
-	(eword-encode-addresses-to-rwl (std11-parse-addresses-string string))
-	)))
+  (car (eword-encode-rword-list (or column 0)
+				(eword-encode-addresses-to-rword-list
+				 (std11-parse-addresses-string string))
+				)))
 
 (defun eword-encode-structured-field-body (string &optional column)
   "Encode header field STRING as structured field, and return the result.