diff options
| author | Richard M. Stallman | 1998-05-19 05:45:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-19 05:45:21 +0000 |
| commit | a4e7db383d31bfbc06397d42283bef527cfdf671 (patch) | |
| tree | 365e61ec3a3568910610d354464427d01c65d519 | |
| parent | cb3e1b4c4cb11ea4461dd09cd5c756b6c5340a5a (diff) | |
| download | emacs-a4e7db383d31bfbc06397d42283bef527cfdf671.tar.gz emacs-a4e7db383d31bfbc06397d42283bef527cfdf671.zip | |
(message-mode): Locally bind adaptive-fill-regexp
and adaptive-fill-first-line-regexp.
| -rw-r--r-- | lisp/gnus/message.el | 7 |
1 files changed, 7 insertions, 0 deletions
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)." | |||
| 1281 | (message-setup-toolbar)) | 1281 | (message-setup-toolbar)) |
| 1282 | (easy-menu-add message-mode-menu message-mode-map) | 1282 | (easy-menu-add message-mode-menu message-mode-map) |
| 1283 | (easy-menu-add message-mode-field-menu message-mode-map) | 1283 | (easy-menu-add message-mode-field-menu message-mode-map) |
| 1284 | (make-local-variable 'adaptive-fill-regexp) | ||
| 1285 | (setq adaptive-fill-regexp | ||
| 1286 | (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp)) | ||
| 1287 | (make-local-variable 'adaptive-fill-first-line-regexp) | ||
| 1288 | (setq adaptive-fill-first-line-regexp | ||
| 1289 | (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" | ||
| 1290 | adaptive-fill-first-line-regexp)) | ||
| 1284 | ;; Allow mail alias things. | 1291 | ;; Allow mail alias things. |
| 1285 | (when (eq message-mail-alias-type 'abbrev) | 1292 | (when (eq message-mail-alias-type 'abbrev) |
| 1286 | (if (fboundp 'mail-abbrevs-setup) | 1293 | (if (fboundp 'mail-abbrevs-setup) |