# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895556721 0
# Node ID 4f926f1609e628061b4cbb9a9d5dacff1a8e509b
# Parent  632fc074e4d7ba8c752c70beec7ed7f84f89a28d
(message-mode): Locally bind adaptive-fill-regexp
and adaptive-fill-first-line-regexp.

diff -r 632fc074e4d7 -r 4f926f1609e6 lisp/gnus/message.el
--- a/lisp/gnus/message.el	Tue May 19 05:22:50 1998 +0000
+++ b/lisp/gnus/message.el	Tue May 19 05:45:21 1998 +0000
@@ -1281,6 +1281,13 @@
     (message-setup-toolbar))
   (easy-menu-add message-mode-menu message-mode-map)
   (easy-menu-add message-mode-field-menu message-mode-map)
+  (make-local-variable 'adaptive-fill-regexp)
+  (setq adaptive-fill-regexp
+	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp))
+  (make-local-variable 'adaptive-fill-first-line-regexp)
+  (setq adaptive-fill-first-line-regexp
+	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|"
+		adaptive-fill-first-line-regexp))
   ;; Allow mail alias things.
   (when (eq message-mail-alias-type 'abbrev)
     (if (fboundp 'mail-abbrevs-setup)