1 /* BEGIN INCLUDE FILE ... rdm_message_chains.incl.pl1 */
 2 /* Created:  September 1983 by G. Palter */
 3 
 4 
 5 /* Definition of a read_mail message chain */
 6 
 7 dcl  1 message_chain aligned based (message_chain_ptr),
 8        2 n_messages fixed binary,                           /* # of messages in the chain */
 9        2 messages (message_list.n_messages) fixed binary;   /* read_mail message numbers of the messages in the chain */
10 
11 dcl  message_chain_ptr pointer;
12 
13 
14 /* Message chains maintained by read_mail's interface to the mail_system_ mailbox manager (rdm_mailbox_interface_) --
15       (1) The first chain is a list of all messages in the mailbox which have not yet been expunged and consists of all
16           messages whether or not they have been marked for deletion.
17       (2) The second chain is a list of all messages in the mailbox which have not been marked for later deletion.
18       (3) The third chain is a list of all messages which have been marked for later deletion.
19    The message specifier parser uses one of these three chains as the basis for selecting the messages to be processed by
20    a request based on the use of "-include_deleted", "-only_non_deleted", or "-only_deleted", respectively; in this way,
21    the amount of code in the parser which must distinguish between these three types of selections is minimized */
22 
23 dcl  1 all_chain aligned based (rdm_invocation.message_chains.all) like message_chain;
24 dcl  1 undeleted_chain aligned based (rdm_invocation.message_chains.undeleted) like message_chain;
25 dcl  1 deleted_chain aligned based (rdm_invocation.message_chains.deleted) like message_chain;
26 
27 
28 /* The marked chain is the list of messages that are to be processed by the current request */
29 
30 dcl  1 marked_chain aligned based (rdm_invocation.message_chains.marked) like message_chain;
31 
32 
33 /* The marked as original chain is the list of messages that are being processed by a reply or forward request:  This
34    chain is used to define the default set of messages to be processed by the various send_mail "original" requests and
35    forward "original" sub-requests */
36 
37 dcl  1 marked_as_original_chain aligned based (rdm_invocation.message_chains.marked_as_original) like message_chain;
38 
39 
40 /* Definition of the acceptable message selection criteria */
41 
42 dcl (ALL_MESSAGES             initial (1),                  /* all messages: -include_deleted */
43      NON_DELETED_MESSAGES     initial (2),                  /* only undeleted messages: -only_non_deleted (default) */
44      ONLY_DELETED_MESSAGES    initial (3))                  /* only deleted messages: -only_deleted */
45           fixed binary static options (constant);
46 
47 /* END INCLUDE FILE ... rdm_message_chains.incl.pl1 */