
<<File: PeanutSendMail.mesa>>
<<Created by: Paxton, February 28, 1983>>
<<from WalnutSendMail.mesa>>
<<>>
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.