Mercurial > emacs
comparison lisp/gnus/message.el @ 33199:92f44ab47ab5
(message-font-lock-keywords): Match a final newline
to help font-lock's multiline support.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 03 Nov 2000 22:42:36 +0000 |
| parents | e07128cd595f |
| children | c1c373a70748 |
comparison
equal
deleted
inserted
replaced
| 33198:167dad6064bf | 33199:92f44ab47ab5 |
|---|---|
| 820 :group 'message-faces) | 820 :group 'message-faces) |
| 821 | 821 |
| 822 (defvar message-font-lock-keywords | 822 (defvar message-font-lock-keywords |
| 823 (let* ((cite-prefix "[:alpha:]") | 823 (let* ((cite-prefix "[:alpha:]") |
| 824 (cite-suffix (concat cite-prefix "0-9_.@-")) | 824 (cite-suffix (concat cite-prefix "0-9_.@-")) |
| 825 (content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)")) | 825 (content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)\n?")) |
| 826 `((,(concat "^\\([Tt]o:\\)" content) | 826 `((,(concat "^\\([Tt]o:\\)" content) |
| 827 (1 'message-header-name-face) | 827 (1 'message-header-name-face) |
| 828 (2 'message-header-to-face nil t)) | 828 (2 'message-header-to-face nil t)) |
| 829 (,(concat "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" content) | 829 (,(concat "^\\(^[GBF]?[Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" content) |
| 830 (1 'message-header-name-face) | 830 (1 'message-header-name-face) |