DIRECTORY IO USING [STREAM], MailBasics USING [Timestamp], MailRetrieve USING [Handle], MailSend USING [MailSendHandle], Rope USING [ROPE]; MailMessage: CEDAR DEFINITIONS ~ BEGIN STREAM: TYPE ~ IO.STREAM; ROPE: TYPE ~ Rope.ROPE; ReadOneMessage: PUBLIC PROC [handle: MailRetrieve.Handle, timeStamp: MailBasics.Timestamp, sender: ROPE, stream: IO.STREAM ¬ NIL] RETURNS [m, formatting: ROPE ¬ NIL, bodyLength, formatLen, formatPos: INT ¬ 0]; ReadOneMessageX: PUBLIC PROC [handle: MailRetrieve.Handle, timeStamp: MailBasics.Timestamp, sender: Rope.ROPE, stream: IO.STREAM ¬ NIL] RETURNS [m, formatting: Rope.ROPE ¬ NIL, bodyLength, formatLen, formatPos: INT ¬ 0]; SendOneMessage: PROC [msH: MailSend.MailSendHandle, to, cc, fullText, formatting: ROPE, validateFlag: BOOL, transport: ATOM]; END. Θ MailMessage.mesa Copyright Σ 1989, 1991 by Xerox Corporation. All rights reserved. Willie-Sue, November 27, 1989 1:16:24 pm PST Willie-s, December 10, 1991 2:26 pm PST Read or Send one message, doing any formatting or attachemnt processing Retrieving If stream is not NIL, writes the retrieved message on stream, otherwise returns the ropes m & formatting, which are the text and formatiing parts of the message. If stream is not NIL, writes the retrieved message on stream, otherwise returns the ropes m & formatting, which are the text and formatiing parts of the message; this version does NOT delete the leading '\r of the plaintext part of a tioga formatted message. Sending Send one message. Κ»–(cedarcode) style•NewlineDelimiter ™codešœ™Kšœ Οeœ7™BK™,K™'K™—šΟk ˜ Kšžœžœžœ˜Kšœ žœ ˜Kšœ žœ ˜Kšœ žœ˜ Kšœžœžœ˜—K˜KšΠbl œžœž ˜Kšœž˜K˜K™GK™Kšžœžœžœžœ˜Kšžœžœžœ˜head™ šΟnœžœžœHžœ žœžœžœžœžœžœ$žœ˜ΡKšœ‘™‘K™—š œžœžœMžœ žœžœžœžœžœžœ$žœ˜άKšœƒ™ƒ—K™—™K˜š  œžœ>žœžœ žœ˜}Kšœ™K˜—K˜K˜—Kšžœ˜—…—‘