From a4e7db383d31bfbc06397d42283bef527cfdf671 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 19 May 1998 05:45:21 +0000 Subject: [PATCH] (message-mode): Locally bind adaptive-fill-regexp and adaptive-fill-first-line-regexp. --- lisp/gnus/message.el | 7 +++++++ 1 file changed, 7 insertions(+) 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) -- 2.39.2