Mercurial > emacs

comparison lisp/mail/rmail.el @ 90159:08185296b491

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-44 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 272-288) - src/xdisp.c (dump_glyph_row): Don't display overlay_arrow_p field. - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 67) - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 05 May 2005 00:04:55 +0000
parents e1fbb019c538 edcdb077c4c1
children f042e7c0fe20
comparison
equal deleted inserted replaced
90158:bf4846baba9a 90159:08185296b491
660 '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):" 660 '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"
661 . font-lock-keyword-face) 661 . font-lock-keyword-face)
662 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. 662 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
663 `(,cite-chars 663 `(,cite-chars
664 (,(concat "\\=[ \t]*" 664 (,(concat "\\=[ \t]*"
665 "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" 665 "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
666 "\\(" cite-chars "[ \t]*\\)\\)+" 666 "\\(" cite-chars "[ \t]*\\)\\)+\\)"
667 "\\(.*\\)") 667 "\\(.*\\)")
668 (beginning-of-line) (end-of-line) 668 (beginning-of-line) (end-of-line)
669 (3 font-lock-comment-face nil t))) 669 (1 font-lock-comment-delimiter-face nil t)
670 (5 font-lock-comment-face nil t)))
670 '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$" 671 '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"
671 . font-lock-string-face)))) 672 . font-lock-string-face))))
672 "Additional expressions to highlight in Rmail mode.") 673 "Additional expressions to highlight in Rmail mode.")
673 674
674 ;; Perform BODY in the summary buffer 675 ;; Perform BODY in the summary buffer