From f8c890ede4a9f889ee0655e3aeb7e5e2c9e14122 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 19 Dec 1995 17:57:08 +0000 Subject: [PATCH] (rfc822/extract-address-components): New function --- tl-822.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/tl-822.el b/tl-822.el index fdae714..0609a32 100644 --- a/tl-822.el +++ b/tl-822.el @@ -15,7 +15,7 @@ (defconst rfc822/RCS-ID - "$Id: tl-822.el,v 7.0 1995-11-16 11:11:56 morioka Exp $") + "$Id: tl-822.el,v 7.1 1995-12-19 17:57:08 morioka Exp $") (defconst rfc822/version (get-version-string rfc822/RCS-ID)) @@ -609,6 +609,20 @@ (or phrase comment) ))) +(defun rfc822/extract-address-components (str) + "Extract full name and canonical address from STR. +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) + ))) + (phrase (rfc822/full-name-string structure)) + (address (rfc822/address-string structure)) + ) + (list phrase address) + )) + ;;; @ end ;;; -- 1.7.10.4