From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 May 2000 20:32:50 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~3905
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ac8716994359d48073aa05a2d6d814f00caac1f6;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 80bda57a5..b168b4af5 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.49 2000/05/08 19:07:47 cph Exp $
+;;; $Id: imail-core.scm,v 1.50 2000/05/08 20:32:50 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -744,7 +744,8 @@
 	  (if (or (not (pair? lines))
 		  (string-null? (car lines))
 		  (header-field-initial-line? (car lines)))
-	      (loop lines (lines->header-field (reverse! group)))
+	      (loop lines
+		    (cons (lines->header-field (reverse! group)) headers))
 	      (collect-group (cdr lines) (cons (car lines) group))))
 	(reverse! headers))))