.#* 4 Mail_Previous_Buffer+ + Null_String°4 Mail_Previous_Buffer* 5 Mail_Previous_Windows+! 1°5 Mail_Previous_Windows,* ( mail_cmd " to+ + Null_String°" to* $ subj+ + Null_String°$ subj* # dir $ file " cc+ + Null_String°" cc* $ sent+ ) push_spot # bobý < ---text follows this line---þ + bol_fsearch. ( pop_spotý< Failed to find text divider.þ % error/b ) push_mark # bob & narrowý1 ^To:[ ]*\\(.*\\)þ * re_fsearch.ý! 1þ 0 regexp_nth_match°" to/cý1 ^Cc:[ ]*\\(.*\\)þ * re_fsearch.ý! 1þ 0 regexp_nth_match°" cc/cý6 ^Subject:[ ]*\\(.*\\)þ * re_fsearch.ý! 1þ 0 regexp_nth_match°$ subj/c # eob % widený " toþ & strlen. ( pop_spotý. Bad To: field.þ % error/bý " ccþ & strlen.! , " cc9±" to/c & down_1. ( pop_spotý+ No message!þ % error/b - push_mark_eobý* Sending...þ % flush & narrowý " to $ subjþ - vms_send_mail°$ sent % widen $ sent.ý. Sending...doneþ % flushý! 0þ 8 set_buffer_modified_flag + getbuf_infoPP°# dir°$ fileýý # dir $ fileþ 6 make_autosave_filenameþ + delete_filePý # dir $ fileþ + delete_fileP/.ý0 No message sent.þ ' message/d ( pop_spot ' whatbufý 4 Mail_Previous_Bufferþ ' bufferp.ý 4 Mail_Previous_Bufferþ & sw2buf/c! 1 5 Mail_Previous_WindowsA. ) onewindow/cýþ + bury_buffery) mail_sendý) mail_sendþ . add_completion , ) mail_sendýL This function is obsolete. Use 'mail_send'.þ ' messagey$ send,* % erase+* ( mail_map+( mail_map°( mail_map ) text_mode % erase. , erase_bufferýU To: \nCc: \nSubject: \n---text follows this line---\nþ & insert # bob # eolý! 0þ 8 set_buffer_modified_flag/cý! 1þ / set_buffer_undoý + getbuf_info" 64OFþ + setbuf_infoý ( mail_mapþ ( keymap_p.ý ( mail_mapþ + make_keymap/bý ( mail_mapþ * use_keymapy2 mail_format_buffer,* ( mail_buf # old & status+& *mail*°( mail_buf* $ file # dir+* ) do_format+! 1°) do_formatý ( mail_bufþ ' bufferp°# old ( nwindows°5 Mail_Previous_Windowsý ( mail_bufþ / pop2buf_whatbuf°4 Mail_Previous_Buffer # old! 0A.* sys$login:°# dir, __jed_mail__°$ fileý $ file # dir ( mail_buf! 2þ + setbuf_infoý # dir $ fileþ 6 make_autosave_filename°$ file! 1ý $ fileþ + file_statusA.ý@ An autosave file exists. Use itþ * get_yes_no. , erase_bufferý $ fileþ + insert_fileP! 0°) do_format/c/c/. + getbuf_info°& statusPPP & status! 1F.w/c/dý ) do_formatþ 2 mail_format_bufferý) mail_hookþ . run_mode_hooksy$ mail, ) push_spot # eobý' \n-- \nþ & insertýý, ~/.signatureþ / expand_filenameþ + insert_file ( pop_spoty5 mail_insert_signature