Fix typo.

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 2f7492032b72a9b2c4b2e2e50b7f319f255b53d8..ea03202e005d69af9b0943e72a7c6ce96fdb06d5 100644 (file)
--- 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)))))))