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.