/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.400 by rms, Sat Apr 23 16:36:53 2005 UTC revision 1.401 by rms, Sun Apr 24 21:32:28 2005 UTC
# Line 662  The first parenthesized expression shoul Line 662  The first parenthesized expression shoul
662              ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.              ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
663              `(,cite-chars              `(,cite-chars
664                (,(concat "\\=[ \t]*"                (,(concat "\\=[ \t]*"
665                          "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"                          "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
666                          "\\(" cite-chars "[ \t]*\\)\\)+"                          "\\(" cite-chars "[ \t]*\\)\\)+\\)"
667                          "\\(.*\\)")                          "\\(.*\\)")
668                 (beginning-of-line) (end-of-line)                 (beginning-of-line) (end-of-line)
669                 (2 font-lock-comment-delimiter-face nil t)                 (1 font-lock-comment-delimiter-face nil t)
670                 (3 font-lock-comment-delimiter-face nil t)                 (5 font-lock-comment-face nil t)))
                (4 font-lock-comment-face nil t)))  
671              '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"              '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"
672                . font-lock-string-face))))                . font-lock-string-face))))
673    "Additional expressions to highlight in Rmail mode.")    "Additional expressions to highlight in Rmail mode.")

Legend:
Removed from v.1.400  
changed lines
  Added in v.1.401

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26