SimpleMailer.mesa
Carl Hauser, August 4, 1986 3:39:42 pm PDT
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]