From 9faeee487f300bd6f2e57b2f7a8f4c52f1ed4d66 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 18 Mar 2001 06:47:48 +0000
Subject: [PATCH] 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.

---
 v7/src/imail/imail-rmail.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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
-- 
2.25.1