From 391b5e70c3f1433694ff77f83a5ee7d41f500e77 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Nov 1997 07:43:46 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/edwin/sendmail.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 2f7492032..ea03202e0 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: sendmail.scm,v 1.39 1997/11/06 07:41:56 cph Exp $
+;;;	$Id: sendmail.scm,v 1.40 1997/11/06 07:43:46 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-97 Massachusetts Institute of Technology
 ;;;
@@ -882,7 +882,7 @@ the user from the mailer."
 	(if fs
 	    (let ((ls (line-start fs 0)))
 	      (delete-string ls
-			     (let ((fe (%mail-field-end fs end)))
+			     (let ((fe (%mail-field-end fs header-end)))
 			       (if (mark< fe header-end) (mark1+ fe) fe)))
 	      (loop ls)))))))
 
-- 
2.25.1