Mercurial > emacs
comparison lisp/mail/sendmail.el @ 61815:3e72302e1d5a
(mail-font-lock-keywords): Match any number of
citation markers at start of each line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Apr 2005 21:32:59 +0000 |
| parents | 8f94d9a1cbf4 |
| children | cc4bd3fe9a9d 08185296b491 |
comparison
equal
deleted
inserted
replaced
| 61814:edcdb077c4c1 | 61815:3e72302e1d5a |
|---|---|
| 376 (regexp-quote mail-header-separator)))) | 376 (regexp-quote mail-header-separator)))) |
| 377 (cons (concat "^" separator "$") 'font-lock-warning-face))) | 377 (cons (concat "^" separator "$") 'font-lock-warning-face))) |
| 378 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. | 378 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. |
| 379 `(,cite-chars | 379 `(,cite-chars |
| 380 (,(concat "\\=[ \t]*" | 380 (,(concat "\\=[ \t]*" |
| 381 "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" | 381 "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" |
| 382 "\\(" cite-chars "[ \t]*\\)\\)+" | 382 "\\(" cite-chars "[ \t]*\\)\\)+\\)" |
| 383 "\\(.*\\)") | 383 "\\(.*\\)") |
| 384 (beginning-of-line) (end-of-line) | 384 (beginning-of-line) (end-of-line) |
| 385 (2 font-lock-comment-delimiter-face nil t) | 385 (1 font-lock-comment-delimiter-face nil t) |
| 386 (3 font-lock-comment-delimiter-face nil t) | 386 (5 font-lock-comment-face nil t))) |
| 387 (4 font-lock-comment-face nil t))) | |
| 388 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$" | 387 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$" |
| 389 . font-lock-string-face)))) | 388 . font-lock-string-face)))) |
| 390 "Additional expressions to highlight in Mail mode.") | 389 "Additional expressions to highlight in Mail mode.") |
| 391 | 390 |
| 392 | 391 |