1 /* BEGIN INCLUDE FILE ... sdm_original_messages.incl.pl1 */
 2 /* Created:  August 1983 by G. Palter */
 3 
 4 /* Definition of the list of original messages for which this message is a reply:  send_mail must keep track of this list
 5    separately from the copy in the message itself as, when qedx/apply -header is used, the mail system can not convert the
 6    printed representation of the In-Reply-To field back into its internal form; therefore, send_mail will delete the the
 7    list of reply references from the message before allowing the user to edit the message and will restore the list on
 8    return from the editor.  This list is also used by callers of the send_mail subsystem (ie: read_mail's reply request)
 9    to supply the initial content for the reply references of the message; if requested, send_mail will extract the message
10    body from these message(s) for inclusion in the body of the message being created by the user */
11 
12 dcl  1 original_messages aligned based (original_messages_ptr),
13        2 version character (8) unaligned,
14        2 pad bit (36),
15        2 n_original_messages fixed binary,                  /* # of original messages listed herein */
16        2 messages (original_messages_n_original_messages refer (original_messages.n_original_messages)),
17          3 message_ptr pointer,                             /* ... -> the message */
18          3 message_idx fixed binary,                        /* ... # assigned to the message by read_mail */
19          3 pad bit (36);
20 
21 dcl  ORIGINAL_MESSAGES_VERSION_1 character (8) static options (constant) initial ("sdmoml01");
22 
23 dcl  original_messages_n_original_messages fixed binary;    /* required to allocate the above structure */
24 
25 dcl  original_messages_ptr pointer;
26 
27 
28 /* END INCLUDE FILE ... sdm_original_messages.incl.pl1 */