Mercurial > emacs
changeset 22145:4f926f1609e6
(message-mode): Locally bind adaptive-fill-regexp
and adaptive-fill-first-line-regexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 19 May 1998 05:45:21 +0000 |
| parents | 632fc074e4d7 |
| children | 84e894dcafbb |
| files | lisp/gnus/message.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)