Rename `tm-eword::addresses-to-rwl' -> `eword-addresses-to-rwl'.
authormorioka <morioka>
Mon, 31 Aug 1998 11:30:24 +0000 (11:30 +0000)
committermorioka <morioka>
Mon, 31 Aug 1998 11:30:24 +0000 (11:30 +0000)
eword-encode.el

index 050112d..bdceb88 100644 (file)
@@ -504,7 +504,7 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
                      )))
     dest))
 
-(defun tm-eword::addresses-to-rwl (addresses)
+(defsubst eword-addresses-to-rwl (addresses)
   (let ((dest (tm-eword::mailbox-to-rwl (car addresses))))
     (if dest
        (while (setq addresses (cdr addresses))
@@ -533,7 +533,7 @@ Default value is `phrase'."
 Optional argument COLUMN is start-position of the field."
   (car (eword-encode-rword-list
        (or column 0)
-       (tm-eword::addresses-to-rwl (std11-parse-addresses-string string))
+       (eword-addresses-to-rwl (std11-parse-addresses-string string))
        )))
 
 (defun eword-encode-structured-field-body (string &optional column)