From c59a96d54af5616dd4bfd82bff1fa6d27ec2e53a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 30 Nov 2000 17:22:55 +0000
Subject: [PATCH] Fix bug: temporary mark was used across buffer modification.

---
 v7/src/edwin/sendmail.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 8b8e5b54c..842499278 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: sendmail.scm,v 1.70 2000/11/29 05:51:17 cph Exp $
+;;; $Id: sendmail.scm,v 1.71 2000/11/30 17:22:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2000 Massachusetts Institute of Technology
 ;;;
@@ -1436,7 +1436,8 @@ This is a list, each element of which is a list of three items:
 
 (define (mail-delete-bcc-lines mail-buffer)
   (let* ((header-start (buffer-start mail-buffer))
-	 (header-end (mail-header-end header-start)))
+	 (header-end
+	  (mark-left-inserting-copy (mail-header-end header-start))))
     (let loop ((start header-start))
       (let ((fs (mail-field-start start header-end "bcc")))
 	(if fs
@@ -1444,7 +1445,8 @@ This is a list, each element of which is a list of three items:
 	      (delete-string ls
 			     (let ((fe (%mail-field-end fs header-end)))
 			       (if (mark< fe header-end) (mark1+ fe) fe)))
-	      (loop ls)))))))
+	      (loop ls)))))
+    (mark-temporary! header-end)))
 
 (define (call-with-smtp-socket host-name trace-buffer receiver)
   (let ((port #f))
-- 
2.25.1