Fix typo.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 80bda57a544c328e98db10ebbf41e927d2b4f884..b168b4af574e26e8c8512d93ef9012668643a7ab 100644 (file)
--- 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))))