From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Sep 2000 16:41:35 +0000 (+0000)
Subject: Tweak adaptive-fill-regexp so that it accepts prefixes of the form "> >".
X-Git-Tag: 20090517-FFI~3284
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=63033e7ac074410ad1b4baa8d8a6fcb301a97990;p=mit-scheme.git

Tweak adaptive-fill-regexp so that it accepts prefixes of the form "> >".
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index c69415911..b9ae1f174 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.212 2000/09/06 15:22:30 cph Exp $
+;;; $Id: imail-top.scm,v 1.213 2000/09/06 16:41:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -293,7 +293,8 @@ regardless of the folder type."
   (make-event-distributor))
 
 (define (imail-adjust-adaptive-fill buffer)
-  (add-adaptive-fill-regexp! "[ \t]*[-a-zA-Z0-9]*>\\([ \t]*>\\)[ \t]*" buffer))
+  (add-adaptive-fill-regexp! "[ \t]*[-a-zA-Z0-9]*>\\([ \t]*>\\)*[ \t]*"
+			     buffer))
 
 (define (add-adaptive-fill-regexp! regexp buffer)
   (local-set-variable! adaptive-fill-regexp