" Vim syntax file

" oracularities.vim - vim syntax file for Internet Oracularities digests
" Steve Kinzler, kinzler@cs.indiana.edu, Mar 01
" http://www.cs.indiana.edu/~kinzler/home.html#vi

" Language:	plaintext Oracularities email digest
" Maintainer:	Steve Kinzler <kinzler@cs.indiana.edu>
" URL:          http://www.cs.indiana.edu/~kinzler/home.html#vi
" Last change:  Mar 01
" Adapted from:	Felix von Leitner's mail.vim

syn clear

syn region	oracHeader	start="^From " skip="^[ \t]" end="^[-A-Za-z0-9]*[^-A-Za-z0-9:]"me=s-1 end="^[^:]*$"me=s-1 end="^---*" contains=oracHeaderKey,oracSubject

syn case ignore

syn region	oracHeader	start="^\(Newsgroups:\|From:\|To:\|Cc:\|Bcc:\|Reply-To:\|Subject:\|Return-Path:\|Received:\|Date:\|Replied:\)" skip="^[ \t]" end="^[-a-z0-9]*[^-a-z0-9:]"me=s-1 end="^[^:]*$"me=s-1 end="^---*" contains=oracHeaderKey,oracSubject

syn region	oracHeaderKey	contained start="^\(From\|To\|Cc\|Bcc\|Reply-To\).*" skip=",$" end="$" contains=oracEmail
syn match	oracHeaderKey	contained "^Date"

syn match	oracSubject	contained "^Subject.*"

syn match	oracEmail	contained "[_a-z\.A-Z0-9-]\+@[a-zA-Z0-9\./\-]\+"
syn match	oracEmail	contained "<.\{-}>"

syn region	oracSignature	start="^-- *$" end="^$"

syn case match

syn region	oracLine	start="^===.*" end="$" contains=oracLabel
syn region	oracLine	start="^---.*" end="$" contains=oracLabel
syn match	oracLabel	contained " .* "
syn match	oracTitle	"^Title:.*"
syn region	oracDoneBy	start="^\(Compiled\|Selected\)-By:.*" end="$" contains=oracEmail
syn match	oracMotd	"^\([^-=A-Za-z0-9_ \t]\)\1\1 .*"
syn match	oracMotd	"^\([^-=A-Za-z0-9_ \t]\)\1\1$"
syn match	oracVotes	"^[0-9]\+ \+[0-9]\+ votes .*"
syn match	oracVotes	"^[0-9]\+ \+[0-9]\.[0-9] mean .*"
syn region	oracQuestioner	start="^Question:.*" end="$" contains=oracEmail
syn region	oracAnswerer	start="^Answer:.*" end="$" contains=oracEmail
syn region	oracDate	start="^Date:.*" end="$" contains=oracHeaderKey

syn match	oracQuestion	"^>.*"
syn match	oracAnswer	"^}.*"

syn region	oracLongLine	start="^[>}].........................................................................." end="$" contains=oracTooLong
syn match	oracTooLong	contained "^.........................................................................."
syn region	oracBadLine	start="^.*[^ -~]" end="$" contains=oracBadChar
syn match	oracBadChar	contained "[^ -~]"

syn sync lines=100

if !exists("did_orac_syntax_inits")
	let did_orac_syntax_inits=1
	hi link oracHeader	Statement
	hi link oracHeaderKey	Type
	hi link oracSubject	String
	hi link oracEmail	Special
	hi link oracSignature	PreProc

	hi link oracLine	Statement
	hi link oracLabel	String
	hi link oracTitle	String
	hi link oracDoneBy	Type
	hi link oracMotd	PreProc
	hi link oracVotes	Identifier
	hi link oracQuestioner	Type
	hi link oracAnswerer	Type
	hi link oracDate	Statement
	hi link oracQuestion	Identifier
	hi link oracAnswer	Comment
	hi link oracLongLine	Error
	hi link oracTooLong	Todo
	hi link oracBadLine	Todo
	hi link oracBadChar	Error
endif

let b:current_syntax = "oracularities"