From 992c495102030a5ed78899a2f7c521cbb282fcba Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 Apr 1991 00:54:21 +0000
Subject: [PATCH] Fix typo.

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

diff --git a/v7/src/edwin/grpops.scm b/v7/src/edwin/grpops.scm
index 45e1692fe..7bbdf0a40 100644
--- a/v7/src/edwin/grpops.scm
+++ b/v7/src/edwin/grpops.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/grpops.scm,v 1.12 1991/04/24 00:37:09 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/grpops.scm,v 1.13 1991/04/24 00:54:21 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -91,7 +91,7 @@
   (string-ref (group-text group)
 	      (group-index->position-integrable group index true)))
 
-(define (group-extract-and-delete! group start end)
+(define (group-extract-and-delete-string! group start end)
   (let ((string (group-extract-string group start end)))
     (group-delete! group start end)
     string))
diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 428dbca46..db645aa63 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.3 1991/04/23 07:20:14 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.4 1991/04/24 00:53:42 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -407,7 +407,7 @@ Numeric argument means justify as well."
     (let ((buffer (current-buffer)))
       (mail-match-header-separator (buffer-start buffer) (buffer-end buffer))
       (fill-individual-paragraphs (re-match-end 0)
-				  (buffer-end-buffer)
+				  (buffer-end buffer)
 				  (ref-variable fill-column)
 				  justify?
 				  true))))
-- 
2.25.1