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

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

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

revision 1.281 by rms, Sat Apr 23 16:36:08 2005 UTC revision 1.282 by rms, Sun Apr 24 21:32:59 2005 UTC
# Line 378  actually occur.") Line 378  actually occur.")
378              ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.              ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
379              `(,cite-chars              `(,cite-chars
380                (,(concat "\\=[ \t]*"                (,(concat "\\=[ \t]*"
381                          "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"                          "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
382                          "\\(" cite-chars "[ \t]*\\)\\)+"                          "\\(" cite-chars "[ \t]*\\)\\)+\\)"
383                          "\\(.*\\)")                          "\\(.*\\)")
384                 (beginning-of-line) (end-of-line)                 (beginning-of-line) (end-of-line)
385                 (2 font-lock-comment-delimiter-face nil t)                 (1 font-lock-comment-delimiter-face nil t)
386                 (3 font-lock-comment-delimiter-face nil t)                 (5 font-lock-comment-face nil t)))
                (4 font-lock-comment-face nil t)))  
387              '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"              '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"
388                . font-lock-string-face))))                . font-lock-string-face))))
389    "Additional expressions to highlight in Mail mode.")    "Additional expressions to highlight in Mail mode.")

Legend:
Removed from v.1.281  
changed lines
  Added in v.1.282

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