From 9a65d68052949996078022c2fe8f494caaad5fa2 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Aug 1996 21:06:59 +0000 Subject: [PATCH] (std11-full-name-string): New function. --- std11.el | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/std11.el b/std11.el index 34f1545..fa70913 100644 --- a/std11.el +++ b/std11.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Keywords: mail, news, RFC 822, STD 11 -;; Version: $Id: std11.el,v 0.20 1996-08-28 21:03:14 morioka Exp $ +;; Version: $Id: std11.el,v 0.21 1996-08-28 21:06:59 morioka Exp $ ;; This file is part of tl (Tiny Library). @@ -220,6 +220,28 @@ If BOUNDARY is not nil, it is used as message header separator. ) ))))) +(defun std11-full-name-string (address) + (cond ((eq (car address) 'group) + (mapconcat (function + (lambda (token) + (cdr token) + )) + (nth 1 address) "") + ) + ((eq (car address) 'mailbox) + (let ((addr (nth 1 address)) + (comment (nth 2 address)) + phrase) + (if (eq (car addr) 'phrase-route-addr) + (setq phrase (mapconcat (function + (lambda (token) + (cdr token) + )) + (nth 1 addr) "")) + ) + (or phrase comment) + )))) + ;;; @ end ;;; -- 1.7.10.4