From: morioka <morioka>
Date: Mon, 31 Aug 1998 11:44:53 +0000 (+0000)
Subject: Rename `eword-encode-addr-seq-to-rwl' ->
X-Git-Tag: flim-1_9_1~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=416ab3373d9c89dd44a39d450f704a7ba3f728d8;p=elisp%2Fflim.git

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

diff --git a/eword-encode.el b/eword-encode.el
index 9fd30b7..8310874 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -420,7 +420,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
     (tm-eword::space-process dest)
     ))
 
-(defun eword-encode-addr-seq-to-rwl (seq)
+(defun eword-encode-addr-seq-to-rword-list (seq)
   (let (dest pname)
     (while seq
       (let* ((token (car seq))
@@ -476,7 +476,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 	  )
 	(append
 	 dest
-	 (eword-encode-addr-seq-to-rwl
+	 (eword-encode-addr-seq-to-rword-list
 	  (append '((specials . "<"))
 		  route
 		  '((specials . ">"))))
@@ -484,7 +484,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 
 (defun eword-addr-spec-to-rwl (addr-spec)
   (if (eq (car addr-spec) 'addr-spec)
-      (eword-encode-addr-seq-to-rwl (cdr addr-spec))
+      (eword-encode-addr-seq-to-rword-list (cdr addr-spec))
     ))
 
 (defun tm-eword::mailbox-to-rwl (mbox)
@@ -541,7 +541,7 @@ Optional argument COLUMN is start-position of the field."
 Optional argument COLUMN is start-position of the field."
   (car (eword-encode-rword-list
 	(or column 0)
-	(eword-encode-addr-seq-to-rwl (std11-lexical-analyze string))
+	(eword-encode-addr-seq-to-rword-list (std11-lexical-analyze string))
 	)))
 
 (defun eword-encode-unstructured-field-body (string &optional column)