From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Nov 1997 07:43:46 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4939
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=391b5e70c3f1433694ff77f83a5ee7d41f500e77;p=mit-scheme.git

Fix typo.
---

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