WalnutSendOpsExtras.mesa
some procedures needed by the excryption project
Last Edited by: Willie-Sue, May 23, 1984 9:35:09 am PDT
DIRECTORY
Rope USING [ROPE],
ViewerClasses USING [Viewer];
WalnutSendOpsExtras: CEDAR DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;
GetFieldBody:
PROC[text, fieldName:
ROPE]
RETURNS[fieldBody:
ROPE];
expects text to be the text of a message; parses the header fields looking for a field named fieldName and returns the value of the fieldBody, or NIL if no such fieldName is found.
GetRecipients:
PROC[sender: Viewer]
RETURNS[rList:
LIST
OF
ROPE, parseError:
BOOL];
expects sender to contain a message to be sent; will parse the headers and return a list of all the recipients of the message; if an error occurs while parsing the viewer, parseError=TRUE is returned, and the viewer will have the offending field underlined.
RemoveFromSendMenu:
PROC[name:
ROPE];
removes the named button from the sender menu, if such a button exists; no errors
RemoveFromMsgMenu:
PROC[name:
ROPE];
removes the named button from the msg displayer menu, if such a button exists; no errors
END.