From 65f6d8b83a4709e5fec4873e2ebb0db71c53a281 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 17 Dec 1996 12:06:15 +0000 Subject: [PATCH] (std11-full-name-string): Strip quoted-pair and return nil if phrase is null-string. --- std11.el | 29 ++++++++++++++++++++++------- 1 file changed, 22 insertions(+), 7 deletions(-) diff --git a/std11.el b/std11.el index 24a71a7..270c3db 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.38 1996-12-17 11:01:47 morioka Exp $ +;; Version: $Id: std11.el,v 0.39 1996-12-17 12:06:15 morioka Exp $ ;; This file is part of MU (Message Utilities). @@ -305,13 +305,28 @@ represents addr-spec of RFC 822. [std11.el]" (comment (nth 2 address)) phrase) (if (eq (car addr) 'phrase-route-addr) - (setq phrase (mapconcat (function - (lambda (token) - (cdr token) - )) - (nth 1 addr) "")) + (setq phrase + (mapconcat + (function + (lambda (token) + (let ((type (car token))) + (cond ((eq type 'quoted-string) + (std11-strip-quoted-pair (cdr token)) + ) + ((eq type 'comment) + (concat + "(" + (std11-strip-quoted-pair (cdr token)) + ")") + ) + (t + (cdr token) + ))))) + (nth 1 addr) "")) ) - (or phrase comment) + (cond ((> (length phrase) 0) phrase) + (comment (std11-strip-quoted-pair comment)) + ) )))) -- 1.7.10.4