<> <> <> <> <<>> DIRECTORY GVBasics USING [RName], Menus USING [MouseButton], Rope USING [ROPE], ViewerClasses USING [Viewer]; PeanutSendMail: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; Viewer: TYPE = ViewerClasses.Viewer; SendMsgRecObject: TYPE = RECORD[ fullText: ROPE, -- text to be sent from: ROPE, -- The From: field to: LIST OF GVBasics.RName, cc: LIST OF ROPE, subject: ROPE, -- The Subject: field voiceID: ROPE _ NIL, -- the ID for a voice message replyTo: BOOL _ FALSE, -- is this field present numRecipients: INT _ 0, numDLs: INT _ 0, endHeadersPos: INT _ 0 -- for adding Reply-To: field ]; SendingRec: TYPE = REF SendMsgRecObject; SendParseStatus: TYPE = {ok, includesPublicDL, includesPrivateDL, fieldNotAllowed, syntaxError}; userRName: ROPE; simpleUserName: ROPE; replyToSelf: BOOL; newFormAfter: BOOL; defaultRegistry: ROPE; AuthenticateUser: PROC RETURNS [BOOL]; SendMsg: PROC [mouseButton: Menus.MouseButton, shift, control: BOOL]; AnswerMsg: PROC [mouseButton: Menus.MouseButton, shift, control: BOOL]; ForwardMsg: PROC [mouseButton: Menus.MouseButton, shift, control: BOOL]; NewMsgForm: PROC [mouseButton: Menus.MouseButton, shift, control: BOOL]; END.