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