File: PeanutSendMail.mesa
Created by: Paxton, February 28, 1983
from WalnutSendMail.mesa
Edited by: Wyatt, November 23, 1983 11:57 am
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: PUBLIC 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.