From a42d99cab7b280474e3d30f3ac5bbd902520430d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Jan 2000 17:46:52 +0000
Subject: [PATCH] Define HEADER-FIELDS->LINES.

---
 v7/src/imail/imail-core.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 2b1a8c2bf..19cf1b282 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.17 2000/01/20 17:44:20 cph Exp $
+;;; $Id: imail-core.scm,v 1.18 2000/01/20 17:46:52 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -718,9 +718,11 @@
 				     (string-append "\n" line))
 				   (cdr lines))))))
 
+(define (header-fields->lines headers)
+  (append-map! header-field->lines headers))
+
 (define (lines->header-fields lines)
-  (map lines->header-field
-       (burst-list lines header-field-initial-line?)))
+  (map lines->header-field (burst-list lines header-field-initial-line?)))
 
 (define (header-field-initial-line? line)
   (let ((colon (string-find-next-char line #\:)))
-- 
2.25.1