File: //usr/share/enscript/hl/mail.st
/**
* Name: mail
* Description: Mail and news articles.
* Author: Originally by Markku Rossi <[email protected]>, heavily modified
* by Matthew Weigel <[email protected]>
*/
state mail_body extends Highlight
{
BEGIN {
reference_face (false);
}
/^[ \t]*>/ {
comment_face (true);
language_print ($0);
call (eat_one_line);
comment_face (false);
}
}
state mail_header extends Highlight
{
BEGIN {
reference_face (true);
}
END {
comment_face (true);
}
/[ \t:]/ {
language_print ($0);
return;
}
}
state mail extends HighlightEntry
{
/^[ \t]*$/ {
/* Move to the mail body. */
call (mail_body);
}
/^/ {
reference_face (true);
language_print ($0);
call (mail_header);
comment_face (true);
}
}
/*
Local variables:
mode: c
End:
*/