1 /* BEGIN INCLUDE FILE ... mlsys_mailbox.incl.pl1 */
 2 /* Created:  April 1983 by G. Palter */
 3 
 4 /* Definition of a mailbox as used by the Multics Mail System */
 5 
 6 dcl  1 mailbox aligned based (mailbox_ptr),
 7        2 version character (8) unaligned,
 8        2 reserved bit (144),                                /* for exclusive use of the mail system */
 9        2 mailbox_address pointer,                           /* mail system address of this mailbox */
10        2 mailbox_dirname character (168) unaligned,         /* directory containing this mailbox */
11        2 mailbox_ename character (32) unaligned,            /* entry name of this mailbox (includes ".mbx") */
12        2 mailbox_type fixed binary,                         /* type of mailbox (see below) */
13        2 mode bit (36),                                     /* user's effective extended access to this mailbox */
14        2 flags,
15          3 salvaged bit (1) unaligned,                      /* ON => this mailbox has been salvaged since last open */
16          3 reserved bit (35) unaligned,                     /* for exclusive use of the mail system */
17        2 message_selection_mode fixed binary,               /* types of messages read: all/ordinary/interactive */
18        2 sender_selection_mode fixed binary,                /* whose messages were read: all/own/not-own */
19        2 message_reading_level fixed binary,                /* how much of each message read: keys/messages */
20        2 n_messages fixed binary,                           /* total # of messages in this mailbox structure */
21        2 n_ordinary_messages fixed binary,                  /* ... # of ordinary messages here */
22        2 n_interactive_messages fixed binary,               /* ... # of interactive messages here */
23        2 n_deleted_messages fixed binary,                   /* ... # of messages here marked for later deletion */
24        2 messages (mailbox_n_messages refer (mailbox.n_messages)),
25          3 key bit (72),                                    /* unique key to read this message if not already read */
26          3 message_ptr pointer;                             /* -> the message structure */
27 
28 dcl  MAILBOX_VERSION_2 character (8) static options (constant) initial ("mlsmbx02");
29 
30 dcl  mailbox_ptr pointer;
31 
32 dcl  mailbox_n_messages fixed binary;                       /* for exclusive use of the mail system */
33 
34 
35 /* Types of mailboxes distinguished by the mail system */
36 
37 dcl (USER_DEFAULT_MAILBOX     initial (1),                  /* the user's default mailbox for receiving mail */
38      USER_LOGBOX              initial (2),                  /* the user's logbox */
39      SAVEBOX                  initial (3),                  /* a savebox */
40      OTHER_MAILBOX            initial (4))                  /* any other type of mailbox */
41           fixed binary static options (constant);
42 
43 /* END INCLUDE FILE ... mlsys_mailbox.incl.pl1 */