From 416ab3373d9c89dd44a39d450f704a7ba3f728d8 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 31 Aug 1998 11:44:53 +0000 Subject: [PATCH] Rename `eword-encode-addr-seq-to-rwl' -> `eword-encode-addr-seq-to-rword-list'. --- eword-encode.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 1.7.10.4