/* NFA - Nuke From Address */

address spot
options results

signal on Syntax
signal on failure
options failat 20



parse arg area,naddr

'gotoarea NAME 'area
if rc=0 then do
	'messagelist'

	'excludeflag all'
	'includeflag unread'

	'Getnumselected'

	total=Result

        'progressopen TITLE "Imp Master Nuke From Address" Prompt "0 Nuked"'
	progdat=result


	'firstmessage'

	current=1

	donethem=0

	do while ~(current=total+1)
		'getfromaddress'
		faddr=result
		if faddr~=naddr then 'markmessage clear'
		if faddr=naddr then donethem=donethem+1
		current=current+1

		'progressupdate REQ "'progdat'" CURRENT "'current'" TOTAL "'total'" PROMPT "'donethem' Nuked"'
		if rc=5 then do
			current=total+1
			'excludeflag all'
                         donethem=0
		end
		'nextmarked'

	end

	'progressclose 'progdat

	'deletemessage noreq'
	'excludeflag all'

exit donethem

syntax:
failure:

signal off failure
signal off syntax

parse source . . . program

program = subword(program,1,words(program)-2)

call 'spot/impmaster/imperror'(program,rc,sigl,sourceline(sigl))

exit
