1 /* BEGIN INCLUDE FILE ... send_mail_options.incl.pl1 */ 2 /* Created: 28 December 1978 by G. Palter */ 3 /* Modified: 25 April 1980 by G. Palter for version 2 -- abbrev processing */ 4 /* Modified: 27 January 1981 by G. Palter for version 3 -- increased prompt string length */ 5 /* Modified: 16 February 1982 by G. Palter for version 4 -- default profile in addition to current profile */ 6 /* Modified: 17 September 1982 by G. Palter for version 5 -- new definition of -fill, -debug, and making -fill/-rql 7 dependent on mode of message input (terminal/file) */ 8 /* Modified: August 1983 by G. Palter for version 6 -- elimination of -header and -message_id (always ON), elimination of 9 -no_abort as the command line -abort/-no_abort no longer sets the default for the send request control argument, 10 addition of -auto_write/-no_auto_write as required by the MCR boards, and addition of options pertaining to 11 treatment of the original message(s) text when invoked by a reply request */ 12 13 /* User settable options of the send_mail subsystem */ 14 15 dcl 1 send_mail_options aligned based (send_mail_options_ptr), 16 2 version character (8) unaligned, 17 18 2 fill_width fixed binary, /* default width for filling */ 19 20 2 prompt_control aligned, /* controls how send_mail prompts */ 21 3 prompt_string character (64) varying, /* ... user-supplied string */ 22 3 flags aligned, 23 4 prompt_control bit (2) unaligned, /* ... default prompt/use above string/don't prompt */ 24 4 pad bit (34) unaligned, 25 26 2 default_profile_ptr pointer, /* -> default profile to be used if flags.abbrev is ON */ 27 2 profile_ptr pointer, /* -> profile to be used if flags.abbrev is ON */ 28 29 2 original_text_control aligned, /* controls send_mail's treatment of original message text */ 30 3 original_text_indentation fixed binary, /* ... # of columns to indent the text if requested */ 31 3 flags, 32 4 include_original_text bit (1) unaligned, /* ... ON => text from message(s) being answered is to be 33 included in the reply before the actual answer */ 34 4 indent_original_text bit (1) unaligned, /* ... ON => the original text is to be indented */ 35 4 fill_original_text bit (1) unaligned, /* ... ON => the original text is to be re-filled */ 36 4 pad bit (33) unaligned, 37 38 2 flags aligned, 39 3 acknowledge bit (1) unaligned, /* ON => user wants acknowledgement from recipients */ 40 3 brief bit (1) unaligned, /* ON => suppress "Mail delivered..." messages */ 41 3 notify bit (1) unaligned, /* ON => send each recipient a wakeup */ 42 3 abbrev bit (1) unaligned, /* ON => use abbrev processing in this invocation */ 43 3 debug bit (1) unaligned, /* ON => enable debugging features */ 44 3 auto_write bit (1) unaligned, /* ON => qedx request automatically rewrites on quit (sigh) */ 45 3 fill_control bit (2) unaligned, /* default/explicit -fill/explicit -no_fill */ 46 3 request_loop_control bit (2) unaligned, /* default/explicit -rql/explicit -nrql */ 47 3 pad bit (26) unaligned; 48 49 dcl send_mail_options_ptr pointer; 50 51 dcl SEND_MAIL_OPTIONS_VERSION_6 character (8) static options (constant) initial ("sdmopt06"); 52 53 54 /* Prompt control options */ 55 56 dcl (DEFAULT_PROMPT initial ("00"b), /* use default subsystem prompt */ 57 USE_PROMPT_STRING initial ("01"b), /* use prompt string supplied by user (via -prompt STR) */ 58 NO_PROMPT initial ("10"b)) /* disable subsystem prompt */ 59 bit (2) static options (constant); 60 61 62 /* Fill control options */ 63 64 dcl (DEFAULT_FILL initial ("00"b), /* fill if terminal input; do not fill if file input */ 65 FILL initial ("01"b), /* user specified -fill */ 66 NO_FILL initial ("10"b)) /* user specified -no_fill */ 67 bit (2) static options (constant); 68 69 70 /* Request loop control options */ 71 72 dcl (DEFAULT_REQUEST_LOOP initial ("00"b), /* enter loop if file input; do not enter if terminal input */ 73 REQUEST_LOOP initial ("01"b), /* user specified -request_loop */ 74 NO_REQUEST_LOOP initial ("10"b)) /* user specified -no_request_loop */ 75 bit (2) static options (constant); 76 77 /* END INCLUDE FILE ... send_mail_options.incl.pl1 */