martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(message-mode): Locally bind adaptive-fill-regexp

Browse Source 
and adaptive-fill-first-line-regexp.
This commit is contained in:
Richard M. Stallman
1998-05-19 05:45:21 +00:00
parent cb3e1b4c4c
commit a4e7db383d
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/gnus/message.el
View File

@@ -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)