init

syntax/mail.jsf

@@ -0,0 +1,198 @@
+# 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