From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 19 May 1998 05:45:21 +0000 (+0000)
Subject: (message-mode): Locally bind adaptive-fill-regexp
X-Git-Tag: emacs-20.3~932
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4e7db383d31bfbc06397d42283bef527cfdf671;p=emacs.git

(message-mode): Locally bind adaptive-fill-regexp
and adaptive-fill-first-line-regexp.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 3faf25edc6c..f2ca8d636cf 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1281,6 +1281,13 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
     (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)