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

address 'MAILMANAGER'

drop MESS.

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

/* MESS.FROMADDR = '2:335/602.2' */
MESS.FLAGS = 'KILL'

MM_EditMsg 'MATRIX' 854 MESS
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