From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Jun 2000 22:06:24 +0000 (+0000)
Subject: Change definition of GET-ALL-HEADER-FIELD-VALUES to return a list of
X-Git-Tag: 20090517-FFI~3484
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f4f2538b3f5c2e9c1e999f039447d6cb3dca27af;p=mit-scheme.git

Change definition of GET-ALL-HEADER-FIELD-VALUES to return a list of
strings, rather than a comma-separated string.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 352cd6d4e..c0a950b18 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.104 2000/06/19 05:00:47 cph Exp $
+;;; $Id: imail-core.scm,v 1.105 2000/06/19 22:06:21 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -684,13 +684,9 @@
 	 (string-trim (header-field-value header)))))
 
 (define (get-all-header-field-values headers name)
-  (let ((headers (get-all-header-fields headers name)))
-    (and (pair? headers)
-	 (decorated-string-append
-	  "" ", " ""
-	  (map (lambda (header)
-		 (string-trim (header-field-value header)))
-	       headers)))))
+  (map (lambda (header)
+	 (string-trim (header-field-value header)))
+       (get-all-header-fields headers name)))
 
 (define (header-field-name? object)
   (and (string? object)
diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 569a85e62..b10557c36 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.172 2000/06/19 20:27:37 cph Exp $
+;;; $Id: imail-top.scm,v 1.173 2000/06/19 22:06:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1075,22 +1075,26 @@ ADDRESSES is a string consisting of several addresses separated by commas."
 (define (imail-reply-headers message cc?)
   (let ((resent-reply-to
 	 (get-last-header-field-value message "resent-reply-to" #f))
-	(from (get-first-header-field-value message "from" #f)))
+	(from (get-first-header-field-value message "from" #f))
+	(concat
+	 (lambda (strings)
+	   (and (pair? strings)
+		(decorated-string-append "" ", " "" strings)))))
     `(("To"
        ,(rfc822:canonicalize-address-string
 	 (or resent-reply-to
-	     (get-all-header-field-values message "reply-to")
+	     (concat (get-all-header-field-values message "reply-to"))
 	     from)))
       ("CC"
        ,(and cc?
 	     (let ((to
 		    (if resent-reply-to
 			(get-last-header-field-value message "resent-to" #f)
-			(get-all-header-field-values message "to")))
+			(concat (get-all-header-field-values message "to"))))
 		   (cc
 		    (if resent-reply-to
 			(get-last-header-field-value message "resent-cc" #f)
-			(get-all-header-field-values message "cc"))))
+			(concat (get-all-header-field-values message "cc")))))
 	       (let ((cc
 		      (if (and to cc)
 			  (string-append to ", " cc)
@@ -1124,7 +1128,7 @@ ADDRESSES is a string consisting of several addresses separated by commas."
 	  (if (ref-variable imail-reply-with-re)
 	      (string-append "Re: " subject)
 	      subject))))))
-
+
 (define (imail-dont-reply-to addresses)
   (let ((pattern
 	 (re-compile-pattern