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 (may be freeform) to: LIST OF GVBasics.RName, cc: LIST OF ROPE, arpaRecipient: BOOL_ FALSE, 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: PUBLIC TYPE = {ok, includesPublicDL, includesPrivateDL, fieldNotAllowed, syntaxError}; userRName: ROPE; simpleUserName: ROPE; replyToSelf: BOOL; newFormAfter: BOOL; defaultRegistry: ROPE; arpaGatewayHosts: LIST OF 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. bFile: PeanutSendMail.mesa Created by: Paxton, February 28, 1983 from WalnutSendMail.mesa Ê"˜Jšœ™šœ%™%J™J™—šÏk ˜ Jšœ œ ˜Jšœœ˜Jšœœœ˜Jšœœ ˜J˜—Jšœœ œ˜#J˜Jš˜Jšœœœ˜Jšœœ˜$J˜šœœœ˜ Jšœ œÏc˜$Jšœœž%˜4Jšœœœ˜Jšœœœœ˜Jšœœœ˜Jšœ œœž˜/Jšœœ˜Jšœœ˜Jšœœž˜4J˜J˜—Jšœ œœ˜(J˜šœœœ˜J˜HJ˜—Jšœ œ˜Jšœœ˜Jšœ œ˜Jšœœ˜Jšœœ˜Jšœœœœ˜J˜JšÏnœœœœ˜&J™JšŸœœ2œ˜EJ˜JšŸ œœ2œ˜GJ˜JšŸ œœ2œ˜HJ˜JšŸ œœ2œ˜HJ˜Jšœ˜J˜—…—š