mail.st - enscript - GNU Enscript
 (HTM) git clone git://thinkerwim.org/enscript.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       mail.st (811B)
       ---
            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 {
           23   BEGIN {
           24     reference_face (true);
           25   }
           26 
           27   END {
           28     comment_face (true);
           29   }
           30   /[ \t:]/ {
           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   /^/ {
           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 */