From: morioka <morioka>
Date: Thu, 26 Nov 1998 09:27:28 +0000 (+0000)
Subject: (std11-comment-value-to-string): fixed.
X-Git-Tag: chao-gnus-6_12_4-oomori~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c4542f2907caf7403909b0e225998cf2ea9a6abf;p=elisp%2Fflim.git

(std11-comment-value-to-string): fixed.
---

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."