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. ΒPeanutSendMail.mesa Copyright c 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 Κ)˜codešœ™Kšœ Οmœ1™™>K™)—K™šΟk ˜ Kšœ žœ ˜Kšœžœ˜Kšœžœžœ˜Kšœžœ ˜—K˜KšΠblœžœž ˜!Kšœž˜K˜Kšžœžœžœ˜Kšœžœ˜$K˜šœžœžœ˜ Kšœ žœΟc˜"Kšœžœ ˜Kšœžœžœ˜Kšœžœžœžœ˜Kšœ žœ ˜$Kšœ žœžœ ˜2Kšœ žœžœ ˜/Kšœžœ˜Kšœžœ˜Kšœžœ ˜4K˜K˜—Kšœ žœžœ˜(K˜šœžœK˜`K˜—Kšœ žœ˜Kšœžœ˜Kšœ žœ˜Kšœžœ˜Kšœžœ˜K˜KšΟnœžœžœžœ˜&K˜Kš‘œžœ2žœ˜EK˜Kš‘ œžœ2žœ˜GK˜Kš‘ œžœ2žœ˜HK˜Kš‘ œžœ2žœ˜HK˜Kšžœ˜—…—š