#-----------------------------------------------------------------------------
# 10.08.98 GV ctrl-Return inserts multiple newlines, to make room for a reply
# 10.08.98 GV Clicking on the 'mail' icon saves *without* asking.
#--- v 4.53 released
# 03.10.98 GV Modified _NoWrap to include lines with at least 4 consecutive
#             'special' characters. This should prevend separator lines from
#             being wrapped (Lines like '------', '~~~~~~~~' etc..)
# 26.10.98 GV Removed space from ID_Middle again. Don't know why it was there
# 04.11.98 GV Added _SpellIgnore
# 14.01.99 GV Now uses EndOfExpr ee_url instead of ID_Middle, as a test..
#-----------------------------------------------------------------------------

# These are for the http://... colouring

#ID_Middle	A-Za-z_0-9./~+\-:;,?%@&#=

#SyntaxComment 1
#  Type		Multiline
#  StartWith	"-- "
#  Endwith	"."
#End

# Search expressions

Search
#	blankline	{' '} NL
	_NoTrim		"-- "
# We don't want to involve the sig separator or headerlines in hardwrap.
	_NoWrap		"-- " | "Subject:" | "To:" | "From:" | * {'\-*_~^+='}4:4
	_ParPrefix	{'>|*' [' ']} {' '}
#	serverpart	{'A-Za-z0-9+%\-'}+
#	We ignore:	<message-id's>			| server.names					| words containing numbers or underscore
#	_SpellIgnore	("<"{'A-Za-z0-9.+%\-'}"@"*">")	| (serverpart"."serverpart"."serverpart)	| ({?} {'0-9_'}+ {?})
	ee_url		{'A-Za-z_0-9./~+\-:;,?%@&#='}+
End

# Four levels of quote colouring, using two different colours

SyntaxWords Group1 StartOfLine EndOfLine nocase
	> "> " >>> "> > >" "> > > "
End

SyntaxWords Group5 StartOfLine EndOfLine nocase
	>> ">> " "> >" "> > " >>>> "> > > >"
End

# Header lines we want to stand out

SyntaxWords Group2 StartOfLine EndOfLine nocase
	From: To: Subject:
End

# Header lines we want to 'hide'

SyntaxWords Group3 StartOfLine EndOfLine nocase
	Path: Newsgroups: Date: Organization: X- References:
	Mime-Version: Content-Type: NNTP-Posting-Host: Message-ID:
	Distribution: Originator:
End

# URL colouring

SyntaxWords Group4 nocase EndOfExpr ee_url
	URL: http:// ftp:// mailto: telnet:// www.
End

# If you're reading a newsbox, you can fold on its subject lines.

FoldParm1 ("Subject:",,startofline)

# Key definitions and functions

KeyList
	^R		Rot13()
	^F		Reformat
	^Return		Newline Newline Newline CaretUp CaretUp
	^Q		CheckWidth(78) KillView()

End

Functions

	Key	F2
	Menu	Subjects  F2
	Icon	lof
	Select	ListOfFound ("Subject:",Text,After,Line,Case)

	Adjust	ListOfFound ("Subject:",All,After,Line,Case)

	Key	PgUp
	Icon	up
	Select	GotoPrev ("Subject:",Text,Line)

	Key	PgDown
	Icon	down
	Select	GotoNext ("Subject:",Text,Line)  Position(Top,4)

	Menu	From
	Select	ListOfFound ("From:",Text,After,Line,Case)

	Icon	sm!news
	Select	CheckWidth(78) SaveKill
	Help	Hnws_snd

	Menu	UnQuote
	Select	Process(,"<StrongED$Dir>.Tools.UnQuote <wimp$scrapdir>.out <wimp$scrapdir>.in")

End

# Shortcuts for the news mode. Note that shortcuts that can be useful in other modes
# (like shortcut for email address) should be placed in BaseMode instead

Shortcuts
	``-	Cheers,\nGuttorm\n-- \nFor your StrongED needs: http://home.eunet.no/~guttorvi/strong.html
End
