<<>> <> <> <> <> <<>> 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.