From 62476c10458b04d576881883b050e784a7bbbc5d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 22 Jun 2000 20:40:57 +0000
Subject: [PATCH] Mail buffer must have adaptive-fill regexps adjusted so that
 C-M-y works right.

---
 v7/src/imail/imail-top.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 7049cd992..cda3a82a5 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.182 2000/06/22 20:18:59 cph Exp $
+;;; $Id: imail-top.scm,v 1.183 2000/06/22 20:40:57 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -268,7 +268,7 @@ regardless of the folder type."
     (add-kill-buffer-hook buffer imail-kill-buffer)
     (buffer-put! buffer 'MAIL-YANK-ORIGINAL-METHOD imail-yank-original)
     (local-set-variable! mode-line-modified "--- " buffer)
-    (add-adaptive-fill-regexp! "[ \t]*[-a-zA-Z0-9]*>+[ \t]*" buffer)
+    (imail-adjust-adaptive-fill buffer)
     (standard-alternate-paragraph-style! buffer)
     (set-buffer-read-only! buffer)
     (disable-group-undo! (buffer-group buffer))
@@ -278,6 +278,9 @@ regardless of the folder type."
   "An event distributor that is invoked when entering IMAIL mode."
   (make-event-distributor))
 
+(define (imail-adjust-adaptive-fill buffer)
+  (add-adaptive-fill-regexp! "[ \t]*[-a-zA-Z0-9]*>+[ \t]*" buffer))
+
 (define (add-adaptive-fill-regexp! regexp buffer)
   (local-set-variable! adaptive-fill-regexp
 		       (string-append regexp "\\|"
@@ -935,6 +938,7 @@ While composing the reply, use \\[mail-yank-original] to yank the
   (insert-message (selected-message #t buffer) #t left-margin mark))
 
 (define (initialize-imail-mail-buffer buffer)
+  (imail-adjust-adaptive-fill buffer)
   (buffer-put! buffer 'MAILER-VERSION-STRING imail-mailer-version-string))
 
 (define (imail-mailer-version-string generic)
-- 
2.25.1