From 1191b01a30e7846cb1c7f84d72a1e00ea2c5bdac Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 20:44:25 +0000 Subject: [PATCH] (rfc822/extract-address-components): Use function `std11-parse-address-string'. --- tl-822.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/tl-822.el b/tl-822.el index 0a52c08..6764cac 100644 --- a/tl-822.el +++ b/tl-822.el @@ -30,7 +30,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.56 1996-08-28 20:32:07 morioka Exp $") + "$Id: tl-822.el,v 7.57 1996-08-28 20:44:25 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -173,14 +173,11 @@ (or phrase comment) )))) -(defun rfc822/extract-address-components (str) - "Extract full name and canonical address from STR. +(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 - (rfc822/parse-address - (rfc822/lexical-analyze str) - ))) + (let* ((structure (car (std11-parse-address-string str))) (phrase (rfc822/full-name-string structure)) (address (rfc822/address-string structure)) ) -- 1.7.10.4