From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Jan 2000 17:16:40 +0000 (+0000)
Subject: Define procedures to convert between headers and strings.
X-Git-Tag: 20090517-FFI~4301
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c0f9fb116eaf57ee7b2c0cde712309a4786b1a15;p=mit-scheme.git

Define procedures to convert between headers and strings.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 1f73d5bd2..ee502f1ad 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.15 2000/01/19 20:56:50 cph Exp $
+;;; $Id: imail-core.scm,v 1.16 2000/01/20 17:16:40 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -735,4 +735,10 @@
 
 (define (header-field-continuation-line? line)
   (and (not (string-null? line))
-       (char-lwsp? (string-ref line 0))))
\ No newline at end of file
+       (char-lwsp? (string-ref line 0))))
+
+(define (string->header-fields string)
+  (lines->header-fields (string->lines string)))
+
+(define (header-fields->string headers)
+  (lines->string (header-fields->lines headers)))
\ No newline at end of file