From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 18 Mar 2001 06:47:48 +0000 (+0000)
Subject: Change implementation of Rmail folders to keep a copy of the Rmail
X-Git-Tag: 20090517-FFI~2895
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9faeee487f300bd6f2e57b2f7a8f4c52f1ed4d66;p=mit-scheme.git

Change implementation of Rmail folders to keep a copy of the Rmail
file in an external string, and to refer to the message bodies using
index pairs into the string.  This change should allow Scheme to
handle much larger Rmail folders.
---

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index f5b2bebca..b46d8c0fc 100644
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.54 2001/03/18 06:27:44 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.55 2001/03/18 06:47:48 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -177,10 +177,10 @@
 	      (lines->header-fields (read-header-lines port)))
 	     (body
 	      (let ((start (xstring-port/position port)))
-		(discard-to-eom port)
-		(vector (xstring-port/xstring port)
-			start
-			(xstring-port/position port))))
+		(input-port/discard-chars port rmail-message:end-char-set)
+		(let ((end (xstring-port/position port)))
+		  (input-port/discard-char port)
+		  (vector (xstring-port/xstring port) start end))))
 	     (finish
 	      (lambda (headers displayed-headers)
 		(call-with-values