1 /* BEGIN INCLUDE FILE ... xmail_send_mail.incl.pl1  */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(87-08-10,Blair), approve(87-12-17,MCR7818),
 5      audit(87-12-23,LJAdams), install(88-01-12,MR12.2-1013):
 6      Add pointer for reply_to field.
 7                                                    END HISTORY COMMENTS */
 8 
 9 /* Created by R. Ignagni   July 1981 */
10 
11 /* 84-08-06 JG Backs: Modified to add pointer for bcc. */
12 
13 dcl 1  send_mail_info             aligned based (send_mail_info_ptr),
14        2 msg_exists               bit (1), /* ON = new message exists */
15        2 stored_seg_ptr           ptr, /* ptr to stored msg seg */
16        2 emacs_seg_ptr            ptr, /* ptr to seg containing msg */
17        2 new_msg_ptr              ptr, /* ptr to new_msg structure */
18        2 reply_to_list_ptr        ptr, /* ptr to reply_to addr struct */
19        2 to_list_ptr              ptr, /* ptr to recipients addr struct */
20        2 cc_list_ptr              ptr, /* ptr to cc address structure */
21        2 bcc_list_ptr             ptr, /* ptr to bcc address structure */
22        2 send_mail_area_ptr       ptr, /* ptr to send_mail_area */
23        2 emacs_seg_pathname       char (168);
24 
25 
26 dcl    send_mail_info_ptr             ptr external static init (null);
27 
28 /* END INCLUDE FILE xmail_send_mail.inl.pl1  */