From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 30 May 2000 20:53:51 +0000 (+0000)
Subject: Use STRING->HEADER-FIELDS.
X-Git-Tag: 20090517-FFI~3657
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b616dd803bbf4c4d2d6dbda3a6db024b5afa27c;p=mit-scheme.git

Use STRING->HEADER-FIELDS.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 615542a97..c5138b5ed 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.94 2000/05/28 03:12:56 cph Exp $
+;;; $Id: imail-imap.scm,v 1.95 2000/05/30 20:53:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1317,8 +1317,7 @@
      (%set-message-flags! message (map imap-flag->imail-flag datum))
      #t)
     ((RFC822.HEADER)
-     (%set-message-header-fields! message
-				  (lines->header-fields (string->lines datum)))
+     (%set-message-header-fields! message (string->header-fields datum))
      #t)
     ((RFC822.SIZE)
      (%set-imap-message-length! message datum)