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

address 'MAILMANAGER'

MM_SearchMsgs 'MATRIX' 'NUM' '"Marco Musso"' '#?' '#?' !INTR

if RC=0 THEN DO i=0 FOR NUM.COUNT
	MM_ReadMsg 'MATRIX' NUM.i 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
		DO j=0 FOR MSG.HEAD.COUNT
			say 'Head:' MSG.HEAD.j
			END
		DO j=0 FOR MSG.TEXT.COUNT
			say 'Text:' MSG.TEXT.j
			END
		DO j=0 FOR MSG.FOOT.COUNT
			say 'Foot:' MSG.FOOT.j
			END
		END
	END