1 rizwank 1.1 /**
 2              * Name: mail
 3              * Description: Mail and news articles.
 4              * Author: Originally by Markku Rossi <mtr@iki.fi>, heavily modified
 5              * by Matthew Weigel <weigel@pitt.edu>
 6              */
 7             
 8             state mail_body extends Highlight
 9             {
10               BEGIN {
11                 reference_face (false);
12               }
13               /^[ \t]*>/ {
14                 comment_face (true);
15                 language_print ($0);
16                 call (eat_one_line);
17                 comment_face (false);
18               }
19             }
20             
21             state mail_header extends Highlight
22 rizwank 1.1 {
23               BEGIN {
24                 reference_face (true);
25               }
26             
27               END {
28                 comment_face (true);
29               }
30               /:/ {
31                 language_print ($0);
32                 return;
33               }
34             }
35             
36             state mail extends HighlightEntry
37             {
38               /^[ \t]*$/ {
39                 /* Move to the mail body. */
40                 call (mail_body);
41               }
42             
43 rizwank 1.1   /^/ {
44                 reference_face (true);
45                 language_print ($0);
46                 call (mail_header);
47                 comment_face (true);
48               }
49             }
50             
51             
52             /*
53             Local variables:
54             mode: c
55             End:
56             */