From: Chris Hanson Date: Thu, 22 Jun 2000 20:40:57 +0000 (+0000) Subject: Mail buffer must have adaptive-fill regexps adjusted so that C-M-y X-Git-Tag: 20090517-FFI~3458 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62476c10458b04d576881883b050e784a7bbbc5d;p=mit-scheme.git Mail buffer must have adaptive-fill regexps adjusted so that C-M-y works right. --- 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)