
# These are for the http:// recognition

#ID_FirstChar	A-Za-z_
ID_Middle	A-Za-z_0-9./~+\-:;?%@#=
#ID_LastChar	$%

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

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

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

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


SyntaxWords Group4 EndOfID nocase
	URL: http:// ftp:// mailto: telnet://
End

#------------------------------------------------

Search
	http	"URL:" | "http://" | "ftp://" | "mailto:" | "telnet://" {'A-Za-z_0-9./~+\-:;?#@='}+
	blankline	{' '} NL
	_NoTrim		"-- "
End

FoldParm1 ("Subject:",,startofline)

ClickList
	http	BroadcastURL("<tmp$word>")
End

#------------------------------------------------

KeyList
	^R		Rot13()
End

Functions

	Key	F2
	Menu	Subjects  F2
	Icon	lof
	Select	ListOfFound ("Subject:",Text,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	wrap
	key	^P
	Select	Replace (_wrap,_rwrap,,Noline)
	Help	Hnws_join

	key	^P
	Adjust	Replace (_wrap,_rwrap,text,Noline)

	ICON	unwrap
	key	^U
	Select	unwrap(,70)
	Help	Hnws_splt

	key	^U
	Adjust	unwrap(text,70)

	Icon	sm!news
	Select	Startoftext GotoNext(blankline,text,line) BlockClear BlockMark_Standard EndofText BlockMark_Standard unwrap(block,70) BlockClear StartOftext killview
	Help	Hnws_snd

	Adjust	GotoNext(blankline,text,line)

	Adjust	unwrap(block,70)

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

End

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