PeanutSendMail.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Created by: Paxton, February 28, 1983 from WalnutSendMail.mesa
Doug Wyatt, March 7, 1985 11:24:01 am PST
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.