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