From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Apr 1991 07:20:14 +0000 (+0000)
Subject: * Change arguments to string and regexp search procedures.  New
X-Git-Tag: 20090517-FFI~10730
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e44f793d3e4a2f24a4be28bfcf075f0c4f1822d8;p=mit-scheme.git

* Change arguments to string and regexp search procedures.  New
  arguments are (PATTERN MARK END #!OPTIONAL CASE-FOLD-SEARCH).

* Reimplement paragraph and region filling commands, to fix bugs and
  create new functionality.  Default region filling is now done by
  paragraphs rather than treating the entire region as a single
  paragraph.

* Implement M-x mail-fill-yanked-message.
---

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 9c0398b9e..428dbca46 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.2 1991/04/23 06:47:14 cph Exp $
+;;;	$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 $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -405,7 +405,7 @@ Numeric argument means justify as well."
   "P"
   (lambda (justify?)
     (let ((buffer (current-buffer)))
-      (mail-match-header-separator (buffer-start buffer) (buffer-end-buffer))
+      (mail-match-header-separator (buffer-start buffer) (buffer-end buffer))
       (fill-individual-paragraphs (re-match-end 0)
 				  (buffer-end-buffer)
 				  (ref-variable fill-column)