From c4542f2907caf7403909b0e225998cf2ea9a6abf Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 26 Nov 1998 09:27:28 +0000 Subject: [PATCH] (std11-comment-value-to-string): fixed. --- std11.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/std11.el b/std11.el index 658dabc..e423616 100644 --- a/std11.el +++ b/std11.el @@ -738,19 +738,22 @@ represents addr-spec of RFC 822. [std11.el]" ))))) (defun std11-comment-value-to-string (value) - (let ((dest "")) - (if (stringp value) - (setq dest (std11-strip-quoted-pair value)) + (if (stringp value) + (std11-strip-quoted-pair value) + (let ((dest "")) (while value - (setq dest (concat dest - (if (stringp (car value)) - (car value) - (std11-comment-value-to-string (cdr (car value))) - )) + (setq dest + (concat dest + (if (stringp (car value)) + (car value) + (concat "(" + (std11-comment-value-to-string + (cdr (car value))) + ")") + )) value (cdr value)) - )) - (concat "(" dest ")") - )) + ) + dest))) (defun std11-full-name-string (address) "Return string of full-name part from parsed ADDRESS of RFC 822." -- 1.7.10.4