<<>> <> <> <> <> <> <<>> <> MailFormat: PROGRAM 1516 VERSION 3 = BEGIN DEPENDS UPON Time (15) VERSION 2, MailTransport (17) VERSION 5; <> <> <> BodyPartType: TYPE = MailTransport.BodyPartType; Date: TYPE = Time.Time; RName: TYPE = MailTransport.RName; AttributeType: TYPE = LONG CARDINAL; Val: TYPE = SEQUENCE OF UNSPECIFIED; Attribute: TYPE = RECORD [ type: AttributeType, value: Val ]; RNameList: TYPE = SEQUENCE OF RName; IPMessageID: TYPE = RECORD [ originator: RName, <> uniqueString: STRING ]; IPMessageIDList: TYPE = SEQUENCE 100 OF IPMessageID; <> <> <> <<>> <> <> <> <<>> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<];>> <<>> headingBodyPart: BodyPartType = 0; HeadingBodyPart: TYPE = SEQUENCE 150 OF Attribute; <> vpFolder: BodyPartType = 1; <> nsTextFile: BodyPartType = 2; <> vpDocument: BodyPartType = 3; <> otherNSFile: BodyPartType= 4; <> multinationalNote: BodyPartType= 5; <> ia5Note: BodyPartType= 6; <> pilotFile: BodyPartType = 7; <> g3Fax: BodyPartType = 8; <> teletex: BodyPartType = 9; <> telex: BodyPartType = 10; <> iso6937Note: BodyPartType = 11; <> interpress: BodyPartType = 12; <> <<>> <> <> <> <> <<>> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<];>> <<>> messageID: AttributeType = 1; MessageID: TYPE = IPMessageID; <> originator: AttributeType = 2; Originator: TYPE = RName; <> authorizingUsers: AttributeType = 3; AuthorizingUsers: TYPE = RNameList; <> primaryRecipients: AttributeType = 4; PrimaryRecipients: TYPE = RNameList; <> copyRecipients: AttributeType = 5; CopyRecipients: TYPE = RNameList; <> blindCopyRecipients: AttributeType = 6; BlindCopyRecipients: TYPE = RNameList; <> inReplyTo: AttributeType = 7; InReplyTo: TYPE = IPMessageID; <> obsoletes: AttributeType = 8; Obsoletes: TYPE = IPMessageIDList; <> crossReferences: AttributeType = 9; CrossReferences:TYPE = IPMessageIDList; <> subject: AttributeType = 10; Subject: TYPE = STRING; <> expiryDate: AttributeType = 11; ExpiryDate: TYPE = Date; <> replyBy: AttributeType = 12; ReplyBy: TYPE = Date; <> replyToUsers: AttributeType = 13; ReplyToUsers: TYPE = RNameList; <> importance: AttributeType = 14; Importance: TYPE = {low(0), normal(1), high(2)}; <> sensitivity: AttributeType = 15; Sensitivity: TYPE = {personal(0), private(1), companyConfidential(2)}; <> autoforwarded: AttributeType = 16; Autoforwarded: TYPE = BOOLEAN; <> immutable: AttributeType = 17; <> Immutable: TYPE = RECORD [ ]; <> replyRequest: AttributeType = 18; ReplyRequest: TYPE = RNameList; <> textAnnotation: AttributeType = 19; TextAnnotation: TYPE = STRING; <> forwardedHeadings: AttributeType = 20; ForwardedHeadings: TYPE = SEQUENCE OF ForwardedMessageInfo; ForwardedMessageInfo: TYPE = RECORD [ envelope: EnvelopeAtt, heading: HeadingAtt, associatedBodyParts: assocBP, indexOfParentHeading: IndexOfParentHeading ]; BodyPartIndex: TYPE = CARDINAL; EnvelopeAtt: TYPE = SEQUENCE 100 OF MailTransport.EnvelopeItem; HeadingAtt: TYPE = SEQUENCE 150 OF Attribute; assocBP: TYPE = SEQUENCE 500 OF BodyPartIndex; IndexOfParentHeadingKind: TYPE = { null(0), nested(1) }; IndexOfParentHeading: TYPE = CHOICE IndexOfParentHeadingKind OF { null => NullRecord, nested => NestedIndex }; NullRecord: TYPE = RECORD [ ]; NestedIndex: TYPE = RECORD [ index: CARDINAL]; <> <> <> firstInterlispType: AttributeType = 4910; lastInterlispType: AttributeType = 4919; <> firstGWType: AttributeType = 4920; lastGWType: AttributeType = 4927; <> END.