/*
** Example script for MM_ReadMsg and MM_EditMsgFlags commands
*/

address 'MAILMANAGER'

drop FLAGSTRING

MM_ReadMsg 'MATRIX' 854 MSG

if RC=0 then do
	say
	say
	say 'From:' MSG.FROM MSG.FROMADDR
	say 'To:  ' MSG.TO MSG.TOADDR
	say 'Subj:' MSG.SUBJ
	say 'Date:' MSG.DATE
	say 'Flags:' MSG.FLAGS
	say
	end

FLAGSTRING = "!SENT"

MM_EditMsgFlags 'MATRIX' 854 'FLAGSTRING'
say RC

MM_ReadMsg 'MATRIX' 854 MSG

if RC=0 then do
	say
	say
	say 'From:' MSG.FROM MSG.FROMADDR
	say 'To:  ' MSG.TO MSG.TOADDR
	say 'Subj:' MSG.SUBJ
	say 'Date:' MSG.DATE
	say 'Flags:' MSG.FLAGS
	say
	end