/* Mark New Mail */

address spot

options results

parse arg area

mnum='spot/NewMail'(area)

'gotomessage'mnum

'excludeflag all'

if mnum~=1 then do

	end=0
	do until end=1
		'markmessage'
		'nextmessage'
		if rc>0 then end=1
	end

end

'getnumselected'
selec=result

exit selec