/*
	$VER: DeleteNew.zprx 1.2 (04.12.94) by Ralph Seichter
	ARexx script for Zodiac's Point.

	Adds deletion marker to all new messages in current board.
	You may specifiy FORCE and LATER as options
*/

PARSE ARG zpPort opt1 opt2
ADDRESS VALUE zpPort
OPTIONS RESULTS

whichlevel
IF (RESULT = "BOARD") THEN DO
	count new
	IF (RESULT > 0) THEN DO
		selectmessage new
		delete opt1 opt2
		selectmessage none
	END
	ELSE
		requestnotify 'No new messages!'
END
ELSE
	requestnotify 'Not inside a board!'

/* EOF */