(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 3faf25edc6cd9b565a1597fbdf78138b1f792032..f2ca8d636cff6ab575c290c4bf7fe05e0de3a0a1 100644 (file)
--- 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)