# JOE syntax highlight file for typical UNIX mail files
# 2004-04-25 Tomas Szepe <szepe@pinerecords.com>

# Improved to handle quote characters commonly seen on Usenet, and
# highlighting of the more frequently edited mail and news headers, with
# some sanity checking of the same.
# 2004-06-26 Jeff Hurwit <darkmoon@verizon.net>

-

=Idle
=Head	+Statement +Keyword
=Email	+Escape +Head
=HdTo	+Email
=HdFrom +Email
=HdSbj	+Title +String +Constant +Head
=HdDate	+Number +Constant +Head
=HdRRT	+Email
=HdGrp	+Email
=HdFuT	+Email
=HdBad	+Bad
=Quot1	+Comment
=Quot2	+DefinedIdent
=Sign	+Preproc

# Start in headers. We know we're out at the first blank line.

:first Idle
	*		hbol		noeat
	"\n"		newline
	">|:~}#]"	newline		noeat

# Require header
#	"\n"		nohead

:nohead HdBad
	*		nohead

:hbol Idle
	*		hbad		recolor=-1
	"\n"		newline
	"A-Z"		bufhdrs		buffer
	"-"		newline		noeat

:hbad HdBad
	*		hbad
	"\n"		hbol

:hlbad HdBad
	*		hbol

:bufhdrs Idle
	*		hbad		recolor=-1
	"\n"		hlbad		noeat recolor=-2
	"-_a-zA-Z0-9"	bufhdrs
	":"		headers		hold

:headers Idle
	*		hbad		recolor=-1
	" \n"		hnocolor	noeat strings
	"To"		hsto		recolor=-2
	"Cc"		hsto		recolor=-2
	"Bcc"		hsto		recolor=-2
	"From"		hsfrom		recolor=-2
	"Subject"	hssbj		recolor=-2
	"Date"		hsdate		recolor=-2
	"Return-Receipt-To"	hsrrecp	recolor=-2
	"Newsgroups"	hsgroups	recolor=-2
	"Followup-To"	hsfolup		recolor=-2
done

:hnocolor Idle
	*		hnocolor
	"\n"		cont_nocolor

:cont_nocolor Idle
	*		hbol		noeat
	" \t"		hnocolor	recolor=-1

:hsto Head
	*		hto
	"\n"		hbol

:hto HdTo
	*		hto
	"\n"		cont_to

:cont_to HdTo
	*		hbol		noeat
	" \t"		hto		recolor=-1

:hsfrom Head
	*		hfrom
	"\n"		hbol

:hfrom HdFrom
	*		hfrom
	"\n"		hbol

:hssbj Head
	*		hsbj
	"\n"		hbol

:hsbj HdSbj
	*		hsbj
	"\n"		cont_sbj

:cont_sbj HdSbj
	*		hbol		noeat
	" \t"		hsbj		recolor=-1

:hsdate Head
	*		hdate
	"\n"		hbol

:hdate HdDate
	*		hdate
	"\n"		hbol

:hsrrecp Head
	*		hrrecp
	"\n"		hbol

:hrrecp HdRRT
	*		hrrecp
	"\n"		hbol

:hsgroups Head
	*		hgroups
	"\n"		hbol

:hgroups HdGrp
	*		hgroups
	"\n"		hbol

:hsfolup Head
	*		hfolup
	"\n"		hbol

:hfolup HdFuT
	*		hfolup
	"\n"		hbol

# body of the message

:newline Idle
	*		knocolor
	"\n"		newline
	">|:~}#]"	q1		recolor=-1
	"-"		maybesign1	recolor=-1

:maybesign1 Quot1
	*		q1
	" \t"		q1
	"\n"		newline		recolor=-1
	">|:~}#]"	q2		recolor=-1
	"-"		maybesign2	recolor=-1

:maybesign2 Quot2
	*		q2
	"\t"		q2
	"\n"		newline		recolor=-1
	" "		maybesign3	recolor=-1
	">|:~}#]"	q1		recolor=-1
	"-"		knocolor	recolor=-3

:maybesign3 Quot2
	*		q2
	" \t"		q2
	"\n"		sign		recolor=-4
	"->|:~}#]"	q1		recolor=-1

:sign Sign
	*		sign

:q1 Quot1
	*		kq1
	"\n"		newline
	" \t"		q1
	"->|:~}#]"	q2		recolor=-1

:q2 Quot2
	*		kq2
	"\n"		newline
	" \t"		q2
	"->|:~}#]"	q1		recolor=-1

:knocolor Idle
	*		knocolor
	"\n"		newline

:kq1 Quot1
	*		kq1
	"\n"		newline

:kq2 Quot2
	*		kq2
	"\n"		newline