-
-(defun rfc822/extract-address-components (string)
- "Extract full name and canonical address from STRING.
-Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
-If no name can be extracted, FULL-NAME will be nil. [tl-822.el]"
- (let* ((structure (car (std11-parse-address-string string)))
- (phrase (rfc822/full-name-string structure))
- (address (rfc822/address-string structure))
- )
- (list phrase address)
- ))