WalnutSendOpsExtras.mesa - interface for other layers of Walnut
Copyright © 1985 by Xerox Corporation. All rights reserved.
Willie-Sue on August 15, 1986 4:57:25 pm PDT
DIRECTORY
Rope USING [ROPE],
ViewerClasses USING [Viewer];
WalnutSendOpsExtras: CEDAR DEFINITIONS = BEGIN
ChangeUserRName:
PROC[newUser: Rope.
ROPE];
used by WalnutMascarade, so one person can scavenge another's mail database
ReSend:
PROC[msg: ViewerClasses.Viewer, who: ViewerClasses.Viewer ←
NIL]
RETURNS[v: ViewerClasses.Viewer];
expects msg to be a message displayer; changes the Date: field to OriginalDate:; changes the From: field to OriginallyFrom: and puts the updated message into a sender
SenderReport: PROC[msg: Rope.ROPE, blink: BOOL← FALSE];
END.