<> <> DIRECTORY Rope USING [ROPE], GVBasics USING [RName]; SimpleMailer: CEDAR DEFINITIONS ~ BEGIN SendMessageInfo: TYPE = {ok, invalidRecipient, noValidRecipients, badPwd, badSender, badReturnTo, allDown}; ROPE: TYPE = Rope.ROPE; RName: TYPE = GVBasics.RName; SendMessage: PROC [from: ROPE _ NIL, returnTo: RName _ NIL, to, cc: LIST OF RName _ NIL, subject: ROPE _ NIL, otherHeader: ROPE _ NIL, body: ROPE _ NIL, validate: BOOL _ TRUE, sendIfValidateFails: BOOL _ FALSE] RETURNS [sent: BOOL, info: SendMessageInfo] END.