.#! 58 Rmail_Spool_Mailbox_File * is_defined.*! 7 8 Rmail_Spool_Mailbox_File+$ MAIL & getenv8 Rmail_Spool_Mailbox_File! 8 $ NULL 8 Rmail_Spool_Mailbox_FileA." 10/ /var/spool/mail8 Rmail_Spool_Mailbox_File" 11! 2 8 Rmail_Spool_Mailbox_File + file_statusB." 13) /usr/mail8 Rmail_Spool_Mailbox_File/c" 15 8 Rmail_Spool_Mailbox_File$ USER & getenv & dircat8 Rmail_Spool_Mailbox_File/c/b" 20/ Rmail_Directory * is_defined.*" 22 / Rmail_Directory+$ HOME & getenv$ Mail & dircat / Rmail_Directory/b*" 26 . Rmail_Tmp_Mbox+ / Rmail_Directory) #NewMail# & dircat. Rmail_Tmp_Mbox*" 28 7 Rmail_Master_Index_File+ / Rmail_Directory1 _Root_Index.index & dircat7 Rmail_Master_Index_File*" 29 3 Rmail_Folder_Buffer+ + Null_String3 Rmail_Folder_Buffer*" 30 1 Rmail_Folder_Name+ + Null_String1 Rmail_Folder_Name*" 31 4 Rmail_Newmail_Folder+( New-Mail4 Rmail_Newmail_Folder*" 32 1 Rmail_Root_Buffer+2 Rmail: Folder List1 Rmail_Root_Buffer*" 33 6 Rmail_Mail_Buffer_Name+ + Null_Str ing6 Rmail_Mail_Buffer_Name" 353 Rmail_Dont_Reply_To * is_defined.*" 38 3 Rmail_Dont_Reply_To+" 39$ USER & getenv" $1 " $1 $ NULLA. " $1/c" 40$ HOST & getenv" $2 " $2 $ NULLA. " $2/c" 42 " $13 Rmail_Dont_Reply_To" 43 " $1 & strl en " $2 & strlenC." 44( %s,%s@%s " $1 " $1 " $2 ' sprintf3 Rmail_Dont_Reply_To/." 46 " $13 Rmail_Dont_Reply_To/d/b" 49 3 Rmail_Dont_Reply_To & strlow3 Rmail_Dont_Reply_To*" 51 4 Rmail_Message_Number+ + Null_String4 Rmail_Message_Number" 5 4 / Rmail_Directory + file_status." 56 / Rmail_Directory# 448 % mkdir." 571 Unable to create / Rmail_Directory9 % error/c" 59 / Rmail_Directory# 448 % chmod." 60- chmod failed! % error/c/b" 632 Rmail_Ask_About_Cc * is_defined.*" 65 2 Rmail_Ask_About_Cc+! 02 Rmail_Ask_About_Cc/b,*" 68 & folder+" 70' Rmail: & folder9" 68y1 rmail_buffer_name" 739 mime_rfc1522_parse_buffer * is_defined." 759 mime_rfc1522_parse_buffer$ mime ( autoload" 764 mime_qp_parse_buffer$ mime ( autoload/b,*" 79 & folder+" 81 / Rmail_Directory & folder & dircat& .index9" 79y1 rmail_folder_file,*" 89 % flags+ + getbuf_info% flags" 90 % flags# 128J! 2OF% flags" 91 % flags" 32OF% flags" 92 % flags# 256J% flags" 93 % flags + setbuf_info" 95" 63 0 set_buffer_umaskP" 96, save_session! 0 1 define_blocal_var" 87y6 rmail_set_buffer_flags,*# 101 # dir $ file % flags+# 102 + getbuf_info% flagsP# dir$ file# 104 / buffer_modified $ file & strlenC.w/b# 107 # dir $ file & dircat$ file# 108 $ file , write_bufferP# 109 $ file# 384 % chmodP" 99y8 rmail_save_buffer_secure,*# 112 & folder ! n % total ( n_unread+*# 114 $ cbuf+ ' whatbuf$ cbuf* ! f % fline+# 116$K Folder: %20s (%d/%d) messages. %d unread.\ n# 117 & folder ! n % total ( n_unread# 116 ' sprintf% fline*# 119 % flags+# 120 7 Rmail_Master_Index_File ) read_fileP# 121 6 rmail_set_buffer_flags# 122 - push_spot_bob# 124 % fline + bol_fsearch.# 126. Folder: %20s ( & folder ' sprint f + bol_fsearch. # eob/b# 127! 0 , set_readonly# 128 + delete_line# 129 % fline & insert# 130! 1 , set_readonly/b# 132 8 rmail_save_buffer_secure# 133 ( pop_spot# 134 $ cbuf & setbuf# 112y9 rmail_update_master_index,*# 137 & folder % d elit+# 139 3 Rmail_Folder_Buffer ' bufferp.w/b*# 141 $ file+ & folder 1 rmail_folder_file$ file* ! n+*# 142 % total $ n_ok ( n_unread+# 144 3 Rmail_Folder_Buffer & setbuf# 145! 0 , set_readonly# 146 ) what_line & string! n# 150 # eob $$ \n + bskip_chars# 151 ) what_line% total# 153 $ bobp.# 155! 0% total! 0! n/c# 158 # bob# 159 % total$ n_ok# 160! 0( n_unread.# 163 ) what_char.# 164" 68x3$ n_ok/.# 165" 45x3( n_unread/j# 167 & down_1.v/b# 168 # bol/e# 171 & folder $ n_ok % total ( n_unread 9 rmail_update_master_index# 173 % widen# 174 # bob# 175 ) go_down_1# 177 ! n . line_as_stringB.# 179 + delete_line# 180 ! n & insert# 181 ' newline/c# 183 8 rmail_save_buffer_secure# 185 % delit.# 187 ' wha tbuf & delbufw/c# 193 # bob# 194$$  \n + bol_fsearchP ) go_down_1# 195 - push_mark_eob & narrow# 137y1 rmail_save_folder,*# 198 & folder+*# 200 $ file+ & folder 1 rmail_folder_file$ file# 201 1 Rmail_Folder_Name! 1 1 rmail_save_folder# 202 & folder 1 rmail_buffer_name3 Rmail_Folder_Buffer# 203 $ file ) find_fileP# 204 6 rmail_set_buffer_flags# 206 3 Rmail_Folder_Buffer - rename_buffer# 207 & folder1 Rmail_Folder_Name# 212 % widen# 213 # bob# 214 $ eobp.# 217$* 0\n1\n \ n & insert/c# 198y1 rmail_find_folder,*# 221 & header - continue_flag * multi_flag+*# 223 ! h " dh+# 225 # bob# 226 & header & strlow& date: A.# 232$[ ^Date:[ ]+[a-zA-Z,]* *0?\\([1-3]?\\d\\) +\\([a-zA-Z]+\\) + * re_fsearch.# 233% %s-%s! 1 0 regexp_nth_match! 2 0 regexp_nth_match ' sprintfw/c# 234$\ ^Date:[ ]+[a-zA-Z]+ \\([a-zA-Z]+\\) +0?\\([1-3]?\\d\\)[ ,]+ * re_fsearch.# 235% %s-%s! 2 0 regexp_nth_match! 1 0 regexp_nth_match ' sprintfw/c# 236 + Null_Stringw/c# 239 ! h.# 240 & header + bol_fsearch/.# 242 & header & strlen ( go_right# 244 * skip_white# 245 ) push_mark# 246 # eol# 248 - continue_flag..# 250 & down_1/.# 252 * skip_white# 253 $ bolp.# 255 ) go_left_1v/c/f/c# 261 ) bufsubstr" dh# 262 ! h & strlen.! ,! h/c# 263 " dh! h# 264 * multi_flag.v/b/f# 267 ! h$" \n! / str_replace_all ' strtrimw# 221y0 rmail_get_header,# 272 # bob# 273 ) push_mark# 274$" \n + bol_fsearch. # eob/b# 275 & narrow# 276 # bob# 270y7 rmail _narrow_to_headers,*# 281 $ from+ + Null_String$ from* $ date+ + Null_String$ date* ' subject+ + Null_String' subject# 283 ) push_spot# 284 7 rmail_narrow_to_headers# 286& From: ! 0! 0 0 rmail_get_header$ from# 287 $ from & strlen.% Fro m ! 0! 0 0 rmail_get_header$ from/b# 289& Date: ! 0! 0 0 rmail_get_header$ date# 290) Subject: ! 0! 0 0 rmail_get_header' subject# 292 % widen# 293 ( pop_spot*# 298 % width+" 25% width*# 299 # len+ $ from ( strwidth# len# 300 # len % width?.*# 302 " ch ( new_from+ ( new_from# 303 $ from% chars." ch# 305 " ch $ char" ch# 306 ( new_from " ch9 ( strwidth % width?.v/c# 308 " ch( new_from/# 310 ( new_from$ from# 311 $ from ( strwidth# len/c# 313 % width # l en:.! $ from/i# 315$3 %6s %s %s\n $ date $ from ' subject ' sprintf# 279y5 rmail_extract_headers,*# 323 $ cbuf+ ' whatbuf$ cbuf* ! n+# 324 3 Rmail_Folder_Buffer & setbuf# 325 # bob# 326 - push_mark_eol# 327 0 bufsubstr_delete! n # 328 ! n & strlen. ! n ' integer! n/.! 0! n/d# 329! n# 330 ! n & string! n# 331 # bob# 332 ! n & insert# 333 $ eobp.# 335$) \n1\n \n & insert/c# 338 $ cbuf & setbuf# 339 ! nw# 321y3 rmail_make_filename,*# 342 & folder+*# 344 # dir+ / Rmail_Directory & folder & dircat# dir# 345 # dir + file_status. # dirw/c# 346 # dir# 448 % mkdir.# 347B Unable to create folder directory. % error/c# 348 # dir# 448 % chmodP# 349 & folder! 0! 0! 0 9 rmail_update_master_i ndex# 350 # dirw# 342y3 rmail_create_folder,*# 355 ! h+# 357 ) push_spot# 359 7 rmail_narrow_to_headers# 360$, \\?[QqBb]\\? * re_fsearch.# 361 9 mime_rfc1522_parse_buffer/c# 363; Content-Transfer-Encoding: ! 1! 0 0 rmail_get_header! h# 3 65 # eob# 366 % widen# 368 ! h & strlow0 quoted-printable ) is_substr.# 370 ) push_mark# 371 # eob# 372 & narrow# 373 4 mime_qp_parse_buffer# 374 % widen/c# 376 ( pop_spot# 353y0 rmail_parse_mime,*# 381 ' headers+*# 382 $ cbuf+ ' whatbuf $ cbuf*# 383 ! n+ 3 rmail_make_filename! n* $ file+# 385 1 Rmail_Folder_Name 3 rmail_create_folder$ file# 386 $ file ! n & dircat$ file# 387 # bob ) push_mark$$ \n * skip_chars * del_region# 388 - push_mark_eob# 389 $ file 4 write_regio n_to_fileP# 392 0 rmail_parse_mime# 393 5 rmail_extract_headers' headers# 395 3 Rmail_Folder_Buffer & setbuf# 396 # eob# 398$ -%3s ! n ' vinsert ' headers & insert# 399 $ cbuf & setbuf# 379y4 rmail_output_newmail,*# 402 $ from+*# 404 . content_length+! 0. content_length# 406 - push_mark_eol# 407" 10 0 bol_fsearch_char.# 408 # eob/b# 409 & narrow# 410$C ^\\CContent-Length:[ ]+\\(\\d+\\)$ * re_bsearch.# 411! 1 0 regexp_nth_match ' integer. content_length/c# 413 # bob # 414 % widen# 415 - push_mark_eol# 417 . content_length.# 419" 10 0 bol_fsearch_char.# 421. content_length# 422 . content_length . content_length % rightA# 423$" \n * skip_chars# 424 $ from - re_looking_at $ eobpDC.# 426 $ eobp. ' go_u p_1/b# 427 & narroww/c/c# 432 * pop_mark_1# 433 - push_mark_eol/c.# 438 $ from * re_fsearch.# 440$$ \n\n + blooking_at.# 442 ' go_up_1v/c# 445 # eolu/c# 449 # eobv/e# 453 & narrow# 402y4 rmail_newmail_narrow,*# 456 $ mbox . newmail_folder+ *# 458 ! n+! 0! n* $ from+$) ^\\cFrom $ from# 460 . newmail_folder 1 rmail_find_folder# 461 # eob ) push_spot# 4620 *rmail-newmail* & setbuf# 463 , erase_buffer# 465 $ mbox + insert_file! 0>.2 File not inserted. % error/c# 467 # bob ) push_mark# 469! 0 $ from * re_fsearchA.# 471: New mail with no messages! ' message# 472 * pop_mark_1# 473 ( pop_spot# 474! 0w/c# 477 * del_region# 478" 63 0 set_buffer_umaskP.# 481 $ from 4 rmail_newmail_narrow# 482! n# 4839 P rocessing %d messages... ! n ' sprintf % flush# 484 4 rmail_output_newmail# 485 , erase_buffer# 486 % widen# 487 $ eobp.v/c# 488 # del/e# 493 ' whatbuf# 494 3 Rmail_Folder_Buffer & setbuf# 495 # bob# 496$$  \n + bol_fsearchP# 497 ) go_do wn_1 - push_mark_eob & narrow# 498 ( pop_spot# 500 & setbuf# 502 . newmail_folder! 1 1 rmail_save_folder# 503 ! nw# 4565 rmail_process_newmail,*# 506 $ file ( tmp_mbox & folder+*# 508 ! n " st+*# 509 & nomail # cmd+*# 510 ' getmail+ + Jed _Bin_Dir' getmail & dircat' getmail# 5121 No new mail in %s $ file ' sprintf& nomail# 514 $ file ) stat_file" st# 515 " st $ NULLA. " st"' st_size! 0>/7.# 517 & nomail ' message# 518! 0w/c# 5213 Getting new mail... % flush# 523 ' getmail + file_status! 1B.# 525 ' getmail+ not found!9 % error/c# 528( %s %s %s ' getmail $ file ( tmp_mbox ' sprintf# cmd# 529 ) push_mark# 530 # cmd + pipe_region.# 5317 getmail returned error. % error/c# 533 ( tmp_mbox & folder 5 rmail_process_newmail! n# 535 ! nw# 506y; rmail_get_newmail_from_file,# 540 8 Rmail_Spool_Mailbox_File . Rmail_Tmp_Mbox 4 Rmail_Newmail_Folder ; rmail_get_newmail_from_file# 538y1 rmail_get_newmail,*# 545 % flags+# 546 7 Rmail_Master_Index_Fi le ) find_fileP# 547! 1 , set_readonly# 548 6 rmail_set_buffer_flags# 549 1 Rmail_Root_Buffer - rename_buffer# 551 # bob# 552, Rmail-Folder * use_keymap# 543y1 rmail_folder_mode,# 557 1 Rmail_Folder_Name! 1 1 rmail_save_folder# 558 1 Rmail_Root_Buffer ' bufferp. 1 Rmail_Root_Buffer ' pop2buf/.# 559 1 rmail_folder_mode/d# 561 ) onewindow# 562 6 Rmail_Mail_Buffer_Name ' bufferp.# 564 6 Rmail_Mail_Buffer_Name & delbuf# 565 + Null_String4 Rmail_Message_Number/c# 567 + Null_ String6 Rmail_Mail_Buffer_Name# 568 - clear_message# 555y1 rmail_exit_folder*# 571 4 Rmail_Headers_Hidden+! 04 Rmail_Headers_Hidden,*# 575 $ mark+$$  \n$ mark# 577! 04 Rmail_Headers_Hidden# 578! 0 , set_readonly# 579 % widen# 580 # bob ) push_mark# 581$" \n + bol_fsearch. # eob/b# 582 & narrow# 583 # bob# 586 $ mark + bol_fsearch.# 588 ) go_down_1 ) push_spot# 591 - push_mark_eob * del_region# 594 # bob ) push_mark $ mark + bol_fsearchP# 595 ) bufsubstr # eob & insert# 59 6 ( pop_spot/.# 600 $ mark & insert# 601 - push_mark_eob# 602$" \n + bskip_chars# 603 ) bufsubstr# 604 # bob# 605 & insert# 606 ' newline# 607! 2 ' go_down/d# 609 ) push_mark % widen # eob & narrow# 610 # bob! 1 , set_readonly# 573y4 rmail_unhide_headers,*# 615 * ok_headers+L From,Subj,Cc,Organ,In-Reply,Date,Reply-To,To* ok_headers*# 616 & header+# 618 4 rmail_unhide_headers# 619! 14 Rmail_Headers_Hidden# 620 % widen # bob ) push_mark# 621$" \n + bol_fsearch. # eob/b# 62 2 & narrow# 623 # bob# 624$$  \n + bol_fsearch.6 Unable to find marker. % error/b# 625! 0 , set_readonly# 626 ) push_spot.# 631 # eol $ trim# 632$# \n * looking_at$# \n * looking_atD.v/b# 635 # del# 636 $ trim# 637 3 insert_single_ space/e# 640 ) goto_spot# 644 * ok_headers! , & strtok.# 646& header.# 648 & header + bol_fsearch/.# 650! & insert/f.# 653 & down_1# 654 * skip_white $ bolpNC/.# 656 # bol# 657! & insert/f# 660 ) goto_spot/# 662 ( pop_spot # 663 # eol * go_right_1.# 665 $ eobpN/.# 667 # bol# 668! * looking_at.# 670 # del# 671 # eol * go_right_1u/c# 675 - push_mark_eol$" \n * skip_chars * del_region# 676 # eol/f# 679 % widen# 680 # bob# 681$$  \n + bol_fsearchP# 682 ) go_down_1# 683 - push_mark_eob & narrow# 684 # bob# 613y2 rmail_hide_headers,# 691 # bol# 692 * go_right_1 * skip_white# 693 ) push_mark# 694# 0-9 * skip_chars# 695 ) bufsubstr# 689y9 rmail_extract_file_number,*# 698 $ flag+*# 700 ! n+" 1 3! n* % flags+# RFE% flags# 702 $ flag $ char$ flag# 703 % flags $ flag ) is_substr! n# 704 ! n + goto_column# 705 $ flag * looking_at.# 707 $ flag & insert# 708 # del/b# 698y. rmail_add_flag,*# 715 $ flag+*# 717 # buf $ file ! n " n1 ' pop_buf # ret+# 719 3 Rmail_Folder_Buffer ' bufferp.! 0w/b# 720 3 Rmail_Folder_Buffer ' pop2buf# 722 9 rmail_extract_file_number$ file# 723 $ file & strlen.! 0w/b# 724 $ file4 Rmail_Message_Number# 725! 0 , set_readonly# 726 # b ol" 45 / looking_at_char.# 728 # del 3 insert_single_space/c# 731 $ flag. $ flag . rmail_add_flag/c# 733! 1 , set_readonly# 735- Rmail: %s(%s) 1 Rmail_Folder_Name $ file ' sprintf# buf# 736 # buf' pop_buf# 737! 2# ret# 739 # buf 6 Rm ail_Mail_Buffer_NameB # buf ' bufferpND.# 744" -1# ret# 745 6 Rmail_Mail_Buffer_Name ' bufferp.# 747 6 Rmail_Mail_Buffer_Name' pop_buf/c/c# 751 ' pop_buf . buffer_visible.# 753 ' pop_buf ' pop2buf# 754 # ret! 2A.! 1# ret/c/.# 760 ) on ewindow# 761# 114 + window_info! n# 762 ' pop_buf ' pop2buf# 763 . TOP_WINDOW_ROW# 116 + window_infoA.# 765 3 Rmail_Folder_Buffer ' pop2buf# 766 ' pop_buf & sw2buf/c# 768# 114 + window_info" n1# 771 " n1! 19! n# 772 ! n! 4:. * enlargewin/i# 773 3 Rmail_Folder_Buffer ' pop2buf# 774 ' pop_buf ' pop2buf/d# 777 # ret" -1B. # retw/c# 779, save_session! 0 1 define_blocal_var# 780" 63 0 set_buffer_umaskP# 781! 0 , set_readonly# 782 % widen# 783 , erase_buffer# 784 # buf6 Rmail_Mail_Buffer_Name# 785 / Rmail_Directory 1 Rmail_Folder_Name & dircat $ file & dircat$ file# 786 $ file + insert_file! n.# 790! 1 , set_readonly# 791! 0 8 set_buffer_modified_flag/n# 794 ! n! 0=.# 796 + mark_buffer # 797 $ file 4 write_region_to_fileP# 798/ File not found! % error/c# 801 # bob# 802 # buf - rename_buffer# 804 0 rmail_parse_mime# 806 2 rmail_hide_headers# 807 3 EXECUTE_ERROR_BLOCK# 809 # retw# 715y1 rmail_get_message,# 814! 0 1 rmai l_get_message.w/b# 816 4 Rmail_Headers_Hidden.# 818 4 rmail_unhide_headers/.# 820 2 rmail_hide_headers/d# 821! 0 8 set_buffer_modified_flag# 822! 1 , set_readonly# 823 3 Rmail_Folder_Buffer ' pop2buf# 812y4 rmail_toggle_headers,.# 830 3 Rmail_Folder_Buffer ' pop2buf/n# 832! 0 1 rmail_get_message! 1A.# 834! 0 7 update_sans_update_hook# 835) page_down $ call/c# 838 3 EXECUTE_ERROR_BLOCK# 826y4 rmail_scroll_forward,*# 843 # str+) ^ *[>:|=]# str.# 846 3 Rmail_Folder_Buf fer ' pop2buf/n# 849! 1! 0 1 rmail_get_messageA.# 851! 0 & update# 852 2 goto_top_of_window# 853 ) go_down_1# 854 # str * re_fsearch..# 857 ) push_mark & narrow # bol # str * re_fsearch % widen.# 858 * skip_white $ eolp/7/.# 861 & down _1.v/b/f# 863! 1 ( recenter/c/c# 867 3 EXECUTE_ERROR_BLOCK# 841y1 rmail_skip_quotes,.# 874 3 Rmail_Folder_Buffer ' pop2buf/n# 876! 0 1 rmail_get_message! 1A.# 878! 0 & update# 879' page_up $ call/c# 882 3 EXECUTE_ERROR_BLOCK# 870 y5 rmail_scroll_backward,*# 887 + opt_headers+ $ NULL+ opt_headers# 888 & _NARGS! 1A.# 889+ opt_headers/c# 891 3 Rmail_Folder_Buffer ' pop2buf# 892 $ mail# 895 / buffer_modified.# 897F Mail already being composed. Erase it * get_yes_no.! 0w/b/c# 900! 1 + opt_headers 2 mail_format_buffer# 901! 1# 885y8 rmail_format_mail_buffer,*# 906 $ cbuf $ subj+# 907" 70 1 rmail_get_message.# 909 $ beepw/b# 913 ' whatbuf$ cbuf# 915 ) push_spot# 916 # bob# 917% Fwd: $ subj# 918) Subject: + bol_fsearch.# 920! 9 ( go_right# 921 ) push_mark# 922 # eol# 923) Fwd: [%s] ) bufsubstr ' sprintf$ subj/c# 925 ( pop_spot# 927 8 rmail_format_mail_buffer.w/b# 930 # eob# 931$A ----Begin Forwarded Message----\n & insert# 932 $ cbuf & insbuf# 933$? ----End Forwarded Message----\n & insert# 935 # bob# 936) Subject: + bol_fsearch.# 938 # eol# 939 $ subj & insert/c# 941 # bob# 942 # eol# 904y5 rmail_forward_message,*# 948 % flags+# 950 + getbuf_info% flags # 951! 0 + setbuf_info# 953 ) push_spot# 954 # bob..# 958 # eol# 959$# \n * looking_at$# \n * looking_atD/.# 960 # del/f/.# 962 & down_1/k# 964 + getbuf_infoP# 965 % flags + setbuf_info# 966 ( pop_spot# 946y4 rmail_unfold_headers,*# 969 $ from $ date " cc+*# 971 # you+# you# you# 973 " cc & strlen $ from & strlenC. $ from# you/c# 974 $ date & strlen.# 975$1 On %s, %s said:\n $ date # you ' vinsert/.# 977$* %s said:\n # you ' vinsert/d# 969y8 rmail_insert_attribut ion,*# 980 $ from+*# 982 # pos # len+.# 988 $ from$. \\(([^()]*)\\)! 1 , string_match# pos # pos/.# 990! 1 0 string_match_nth# len# pos# 991 $ from! 1 # pos + substrbytes $ from # pos # len9! 19" -1 + substrbytes9$ from/f# 995 $ from! "! " 4 str_uncomment_string$ from.$ 1001 $ from$? ,?\\([^,]*<\\([^>]*\\)>[^,]*\\)! 1 , string_match# pos # pos/.*$ 1003 $ pos1 $ len1+$ 1005! 1 0 string_match_nth# len# pos$ 1006! 2 0 string_match_nth$ len1$ pos1$ 1008 $ from ! 1 # pos + substrbytes$ 1009 $ from $ pos1! 19 $ len1 + substrbytes9$ 1010 $ from # pos # len9! 19" -1 + substrbytes9$ 1008$ from/f$ 1014 $ from$$ \n + strcompress! ! , / str_replace_all! , + strcompressw# 980y9 rmail_parse_em ail_address,*$ 1017 $ from+*$ 1019 % sub_f ! n # num+$ 1023! ,$ 1024! 0! n$ 1025! 0# num$ 1027 $ from & strlow$ from.$ 1028 $ from ! n" 44 / extract_element% sub_f % sub_f $ NULLB/.$ 1030! n*$ 1031 $ pats+*$ 1032 ' matches+$ 1034 ! ^ 3 Rmail_Dont_Reply_To" 44" 92 ' strchop9! $9$ pats$ 1035 ( Int_Type}, string_match % sub_f $ pats! 1 ) array_map' matches$ 1036 ' matches # any.$ 1038 % sub_f$ 1039# num/b/f$ 1042 # num 7 create_delimited_string$ 1017y9 rmail_app ly_dont_reply_to,$ 1047" 82 1 rmail_get_message.$ 1049 $ beepw/b*$ 1053 $ subj " cc " to ' replyto $ from % msgid+ $ NULL% msgid*$ 1054 $ date+ $ date*$ 1056 $ cbuf+ ' whatbuf$ cbuf$ 1058 ) push_spot*$ 1059 . headers_hidden+ 4 Rmail_Header s_Hidden. headers_hidden$ 1060 4 rmail_unhide_headers$ 1061 7 rmail_narrow_to_headers$ 1062! 0 8 set_buffer_modified_flag$ 1063! 1 , set_readonly$ 1065* Reply-To: ! 1! 0 0 rmail_get_header' replyto$ 1066 ' replyto & strlen.$ 1067& From: ! 1! 0 0 rmail_get_header' replyto/b$ 1069$ To: ! 1! 1 0 rmail_get_header" to$ 1071) Subject: ! 1! 0 0 rmail_get_header$ subj$ 1072 $ subj & strlen.$ 1073, (No Subject)$ subj/b$ 1075, Message-ID: ! 1! 0 0 rmail_get_head er% msgid$ 1077# Cc:! 1! 1 0 rmail_get_header" cc$ 1079 2 Rmail_Ask_About_Cc " cc & strlenC..$ 1083 " cc$ 1084 , _clear_error/n$ 10866 Include the cc: header * get_yes_no.$ 1087 + Null_String" cc/b/c$ 1090! , " to9" cc$ 1091 " cc 9 rmail_parse_email_address 9 rmail_apply_dont_reply_to" cc$ 1093 ' replyto 9 rmail_parse_email_address' replyto$ 1095& From: ! 1! 0 0 rmail_get_header$ from$ 1097 # eob$ 1099$4 ^Date:[ ]*\\(.*\\)$ * re_bsearch.$ 1100! 1 0 regexp _nth_match$ date/c$ 1102 % widen$ 1104 . headers_hidden.$ 1106 2 rmail_hide_headers$ 1107! 0 8 set_buffer_modified_flag$ 1108! 1 , set_readonly/c$ 1111 ( pop_spot*$ 1113 + opt_headers+ $ NULL+ opt_headers$ 1114 % msgid B.$ 1115$1 In-Re ply-To: %s\n % msgid ' sprintf+ opt_headers/c$ 1117 + opt_headers 8 rmail_format_mail_buffer.w/b$ 1120 # bob.$ 1123# To: * looking_at.$ 1125 # eol$ 1126 ' replyto & insert/.$ 1128# Cc: * looking_at.$ 1130 # eol$ 1131 " cc & insert/. $ 1133( Subject: * looking_at.$ 1135 # eol$ 1136 ) push_spot$ 1137 $ subj & insert$ 1138 ( pop_spot$ 1139# Re: * looking_at.$ Re: & insert/b/c/d/d/.$ 1142 & down_1) X-Mailer: * looking_atNC/k$ 1144 # eob$ 1146$% -- \n + bol_bsear ch.$ 1147 $ up_1/c$ 1149 ) push_mark$ 1150 & narrow$ 1152 , erase_buffer$ 1154 $ cbuf & insbuf$ 1155 # bob$ 1157 $ from $ date " cc 8 rmail_insert_attribution$ 1158 ) push_spot.$ 1161 # bol$ 1162" 62 + insert_char/.$ 1164 & down_1/k$ 1 165 ' newline$ 1166 ( pop_spot$ 1167 % widen$ 1169 " to & strlen.$ 1171 # bob # eol/b$ 1045y+ rmail_reply,*$ 1177 $ file+$ 1179= Are you sure you want to edit * get_y_or_n.w/b$ 1181" 69 1 rmail_get_message.w/b$ 1186 / Rmail_Directory 1 Rmail_Folder_Name & dircat 4 Rmail_Message_Number & dircat$ file$ 1188! 1 $ file + file_statusB.$ 11891 Unable to read %s $ file & verror/c$ 1191! 0 8 set_buffer_modified_flag$ 1192 ' whatbuf & delbuf$ 1194 $ file ) find_fileP$ 1195 ) text_mode$ 1197 4 set_buffer_no_backup$ 1175y* rmail_edit,$ 1202 ) push_mark.$ 1203 & down_1" 68 / looking_at_charC/./f$ 1204 $ eobp.$ 1206 * pop_mark_1$ 1207; No more undeleted messages. ' message$ 1208! 0w/c$ 1210 * pop_mark_0$ 121 1! 1$ 1200y7 rmail_find_next_message,$ 1216 ) push_mark.$ 1217 $ up_1 # bol" 68 / looking_at_charC/./f$ 1218 $ bobp" 68 / looking_at_charC.$ 1220 * pop_mark_1$ 1221; No more undeleted messages. ' message$ 1222! 0w/c$ 1224 * pop_mark_0 $ 1225! 1$ 1214y7 rmail_find_prev_message,$ 1230 # bol$ 1231 $ eolp. $ beepw/c$ 1232" 68 / looking_at_char.$ 1234! 0 , set_readonly$ 1235 # del" 68 + insert_char$ 1236! 1 , set_readonly/b$ 1228y0 rmail_delete_cmd,$ 1242 0 rmail_de lete_cmd$ 1243 7 rmail_find_prev_messageP$ 1240y5 rmail_delete_backward,$ 1248 0 rmail_delete_cmd$ 1249 7 rmail_find_next_messageP$ 1246y4 rmail_delete_forward,$ 1254 - push_mark_eol$ 1255" 68 0 bol_bsearch_char.$ 1257! 0 , set_readonly$ 1258 # del 3 insert_single_space$ 1259! 1 , set_readonly$ 1260 * pop_mark_0w/c$ 1263 * pop_mark_1$ 1264 $ beep$ 1252y. rmail_undelete,$ 1269 7 rmail_find_next_message.$ 1271 4 rmail_scroll_forward/c$ 1267y2 rmail_next_message,$ 1277 7 rmail_ find_prev_message.$ 1279 4 rmail_scroll_forward/c$ 1275y2 rmail_prev_message,*$ 1283 & folder+*$ 1285 ! n+$ 1286 & folder 1 rmail_find_folder$ 1287 # bob$ 1288 ) go_down_1$ 1289 . line_as_string ' integer! n$ 1290$$  \n + bol_fsearchP$ 1291 ) go_down_1$ 1292 - push_mark_eob$ 1293 & narrow$ 1294 ' whatbuf ' pop2buf$ 1295 ! n ) goto_line # bol$ 1296* Rmail-Read * use_keymap$ 1297< Jed %b Folder. (%p) %t! 0 / set_status_line$ 1298! 1 , set_readonly$ 12991 rmai l_folder_hook . run_mode_hooks$ 1283y3 rmail_select_folder,*$ 1304 % slist+ + Null_String% slist*$ 1305 $ cbuf+ ' whatbuf$ cbuf$ 1307 1 Rmail_Root_Buffer & setbuf$ 1308 - push_spot_bob.$ 1309( Folder: + bol_fsearch/.$ 1311! 8 ( go_righ t$ 1312 * skip_white$ 1313 ) push_mark$ 1314! % ffindP$ 1315! , ) bufsubstr9% slist/f$ 1317 ( pop_spot$ 1318 $ cbuf & setbuf$ 1319 % slist$ 1302y7 rmail_build_folder_list,*$ 1322 & folder+$ 1324 / Rmail_Directory & folder & dircat& folder$ 1325 & folder + file_status! 2Aw$ 1322- folder_exists,*$ 1328 . default_folder+*$ 1330 & folder ' new_dir+$ 1332/ Move to folder:$ 1333 . default_folder$ 1334 7 rmail_build_folder_list$ 1332 ; read_string_with_completion& folder $ 1336 & folder & strlenN.$ 1337 $ NULLw/c$ 1339 & folder 1 Rmail_Folder_NameA.$ 1340 & folderw/c$ 1342! 0 & folder - folder_existsA.$ 1344! 1C Folder %s does not exist, create it & folder ' sprintf * get_yes_noB.$ 1345 $ NULLw/c$ 1347 & folder 3 rmail_create_folderP/c$ 1350 & folderw$ 13283 query_create_folder,*$ 1355 ! n+*$ 1356 $ file+ 8 Rmail_Spool_Mailbox_File$ file*$ 1357 & folder+$ 1359 4 Rmail_Newmail_Folder& folder$ 1361" -1" -1 / prefix_argumentB.$ 1363. Inp ut MailBox: 3 read_file_from_mini$ file$ 1364 $ file & strlen.w/b$ 1366 & folder 3 query_create_folder& folder$ 1367 & folder $ NULLA.w/c/c$ 1371 $ file . Rmail_Tmp_Mbox & folder ; rmail_get_newmail_from_file! n$ 1373 ! n.$ 13750 %d new messages. ! n ' sprintf % flush$ 1376 & folder 3 rmail_select_folder/c$ 1353y4 rmail_folder_newmail*$ 1380 1 Rmail_Last_Folder+ + Null_String1 Rmail_Last_Folder,*$ 1386 # vis+! 0# vis*$ 1387 # buf+- Rmail: %s(%s) 1 Rmail_Folder_Name 4 Rmai l_Message_Number ' sprintf# buf$ 1389 # buf ' bufferp.$ 1391 # buf . buffer_visible# vis$ 1392 # buf & delbuf/c$ 1394 # visw$ 1384y6 rmail_validate_message,*$ 1399 % new_n+$ 1401 # eob$ 1402$$ \n + bskip_chars$ 1403 # bol$ 1404 9 r mail_extract_file_number% new_n$ 1405 % new_n & strlen.! 0% new_n/b$ 1406 % widen$ 1408 # bob - push_mark_eol$ 1409 ) bufsubstr % new_nB.$ 1411 + delete_line$ 1412 % new_n & insert$ 1413 ' newline/c$ 1415$$  \n + bol_fsearchP$ 1416 ) go _down_1 - push_mark_eob & narrow$ 1418 * pop_mark_1$ 1419 1 Rmail_Folder_Name! 0 1 rmail_save_folder$ 1397y< rmail_update_folder_and_save,*$ 1424 ! n $ file ( new_file # dir % new_n+! 0% new_n*$ 1425 . update_message+! 0. update_message*$ 14 26 ' res_fmt+> Resequencing folder [%d/%d]...' res_fmt*$ 1427 $ nmax+.$ 1431 < rmail_update_folder_and_save$ 1432 ( pop_spot/n$ 1435 ) push_spot$ 1436! 0 , set_readonly$ 1437 / Rmail_Directory 1 Rmail_Folder_Name & dircat# dir$ 1439! 0! n $ 1440 # eob$ 1441 ) what_line! 1:$ nmax$ 1442 # bob$ 1444 ' res_fmt ! n $ nmax ' sprintf % flush.$ 1446 9 rmail_extract_file_number$ file $ file & strlen/.$ 1448! n$ 1449 ! n & string% new_n$ 1451 ! n" 10E.$ 1452 ' res_fmt ! n $ nmax ' sprintf % flush/b$ 1454 $ file % new_nB.$ 1456 # dir $ file & dircat$ file$ 1457 # dir % new_n & dircat( new_file$ 1458 ( new_file + file_status.$ 1459H File %s exists. Cannot rename %s to it.$ 1460 ( new_file $ file$ 1459 & ve rror/c$ 1462 $ file ( new_file + rename_file.$ 1463/ Error renaming $ file % error/c$ 1465 # bol$ 1466 * go_right_1$ 1467 ) push_mark$ 1468 * skip_white$ 1469# 0-9 * skip_chars$ 1470 * del_region$ 1471# %3s % new_n ' vinsert$ 1472 % new_n 4 Rmail_Message_NumberA.$ 1474 6 rmail_validate_message. update_message/c/c$ 1478 & down_1.v/b/f$ 1482 < rmail_update_folder_and_save$ 1484 ( pop_spot$ 1485 # eol$" \n + bskip_chars # bol$ 1486! 1 , set_readonly$ 1487 . update_message % new_n ' integer 4 Rmail_Message_Number ' integer=D.$ 1489 + Null_String4 Rmail_Message_Number$ 1490 4 rmail_scroll_forward/c$ 1493% done. ' message$ 1422y7 rmail_resequence_folder,*$ 1498 & folder+ $ NULL& folder* & header % old_n % new_n ( new_file ( old_file+*$ 1499 * old_folder+ 1 Rmail_Folder_Name* old_folder*$ 1500 # buf # vis+$ 1502 & _NARGS.$ 1503& folder/c*$ 1505 ' new_dir ' old_dir+ / Rmail_Directory 1 Rmail_Folder_Name & dircat' old_dir$ 1507 9 rmail_extract_file_numb er% old_n$ 1508 % old_n & strlen.w/b$ 1510 & folder $ NULLA.! 0 & folder - folder_existsA/7.$ 1511 1 Rmail_Last_Folder 3 query_create_folder& folder/c$ 1513 & folder $ NULLA.w/c$ 1516 / Rmail_Directory & folder & dircat' new_dir$ 1519 . line_as_string& header$ 1521 & folder 1 rmail_find_folder$ 1526 3 rmail_make_filename% new_n$ 1527 ' new_dir % new_n & dircat( new_file$ 1528 ' old_dir % old_n & dircat( old_file$ 1530 ( old_file ( new_file + rename_file.$ 1532 * old_fo lder 3 rmail_select_folder$ 15336 Unable to rename file. % error/c$ 1535 # eob$ 1536 & header & insert$ 1537 # bol$ 1538 * go_right_1$ 1539 ) push_mark$ 1540 * skip_white$ 1541# 0-9 * skip_chars$ 1542 * del_region$ 1543# %3s % new_n ' vinsert$ 1544 & folder1 Rmail_Last_Folder$ 1547 # bob$ 1548$$  \n + bol_fsearchP$ 1549 ) go_down_1$ 1550 - push_mark_eob$ 1551 & narrow$ 1553 * old_folder 3 rmail_select_folder$ 1554! 0 , set_readonly$ 1555 # bob$ 1556 & header + bo l_fsearchP$ 1557 + delete_line$ 1558 7 rmail_resequence_folder$ 1496y6 rmail_output_to_folder,*$ 1563 & folder+ $ NULL& folder* & header % old_n % new_n ( new_file ( old_file+*$ 1564 * old_folder+ 1 Rmail_Folder_Name* old_folder*$ 1565 # buf # vi s+$ 1567 & _NARGS.$ 1568& folder/c*$ 1570 ' new_dir ' old_dir+ / Rmail_Directory 1 Rmail_Folder_Name & dircat' old_dir$ 1572 & folder $ NULLA.! 0 & folder - folder_existsA/7.$ 1573 1 Rmail_Last_Folder 3 query_create_folder& folder/c$ 1575 & folder $ NULLA.w/c$ 1578 / Rmail_Directory & folder & dircat' new_dir$ 1580 ) push_spot./.$ 1584 # bob.$ 1585" 68 0 bol_fsearch_char/.$ 1587 9 rmail_extract_file_number% old_n$ 1588 % old_n & strlen.$ 1590 # eolu/b$ 1593/ Moving ${old _n} % flush$ 1596 . line_as_string& header$ 1597 & folder 1 rmail_find_folder$ 1601 3 rmail_make_filename% new_n$ 1602 ' new_dir % new_n & dircat( new_file$ 1603 ' old_dir % old_n & dircat( old_file$ 1604 ( old_file ( new_file + rename_ file.$ 1605 ' OSErrorK Unable to rename ${old_file} to ${new_file}/c$ 1607 # eob$ 1608 & header & insert$ 1609 # bol$ 1610 * go_right_1$ 1611 ) push_mark$ 1612 * skip_white$ 1613# 0-9 * skip_chars$ 1614 * del_region$ 1615# %3s % new_n ' vinsert$ 1616 & folder1 Rmail_Last_Folder$ 1619 # bob$ 1620$$  \n + bol_fsearchP$ 1621 ) go_down_1$ 1622 - push_mark_eob$ 1623 & narrow$ 1625 * old_folder 3 rmail_select_folder$ 1626! 0 , set_readonly$ 1627 # bob$ 1628 & header + b ol_fsearchP$ 1629 + delete_line/f/.$ 1634 * old_folder 3 rmail_select_folder$ 1635 7 rmail_resequence_folder$ 1636 ( pop_spot/$ 1561y> rmail_output_deleted_to_folder,$ 1643 ) push_spot$ 1644 + mark_buffer$ 1645! 0 1 set_region_hidden$ 164 6 ( pop_spot$ 1641y4 rmail_unhide_deleted,$ 1651 ) push_spot$ 1652 4 rmail_unhide_deleted$ 1653 # bob.$ 1654" 68 0 bol_fsearch_char/.$ 1656! 1 / set_line_hidden$ 1657 # eol/f$ 1659 ( pop_spot$ 1649y2 rmail_hide_deleted,*$ 1667 $ file # dir ! n ( new_file+$ 16695 Expunging messages... % flush$ 1670 ) push_mark.$ 1673 7 rmail_resequence_folder$ 1674 * pop_mark_0$ 1675! 1 , set_readonly/n$ 1677! 0 , set_readonly$ 1678 / Rmail_Directory 1 Rmail_Folder_Name & dircat# dir$ 1679 # bob.$ 1680" 68 0 bol_fsearch_char/.$ 1682 9 rmail_extract_file_number$ file$ 1683 $ file & strlen.u/b$ 1689 # dir $ file & dircat$ file$ 1690! 1 $ file + file_statusB.$ 16911 Unable to access $ file % error/c$ 1693 $ file + delete_file.$ 16941 Unable to delete $ file % error/b$ 1696 + delete_line/f$ 1698 * pop_mark_1$ 1699 7 rmail_resequence_folder$ 1665y6 rmail_xpunge_deletions,*$ 1704 # rsp+M X-punge, M-ove, or C-cancel deleted messages? 1 get_mini_respons e# rsp$ 1705" 32# rsp$ 1706 # rsp# 120A.$ 1708 6 rmail_xpunge_deletionsw/c$ 1711 # rsp# 109A.$ 1713 > rmail_output_deleted_to_folderw/c$ 1702y> rmail_xpunge_or_move_deletions$ 1718* Rmail-Read" $1$ 1719 " $1 ( keymap_p.$ 1721 " $1 + ma ke_keymap$ 1722" 32# 127! 1.$ 1724 $ char" $2$ 1725 " $2 " $1 + undefinekey/h$ 17281 rmail_skip_quotes! " $1 ) definekey$ 17295 rmail_delete_backward! D " $1 ) definekey$ 17304 rmail_delete_forward! d " $1 ) definekey$ 1731 1 rmail_exit_folder! q " $1 ) definekey$ 17321 rmail_exit_folder! Q " $1 ) definekey$ 17334 rmail_folder_newmail! g " $1 ) definekey$ 17344 rmail_folder_newmail! G " $1 ) definekey$ 17352 rmail_next_message! n " $1 ) definekey$ 173 62 rmail_next_message! N " $1 ) definekey$ 17372 rmail_prev_message! p " $1 ) definekey$ 17382 rmail_prev_message! P " $1 ) definekey$ 17394 rmail_toggle_headers! t " $1 ) definekey$ 17404 rmail_toggle_headers! T " $1 ) definekey$ 17414 rmail_scroll_forward! " $1 ) definekey$ 17424 rmail_scroll_forward$" \r " $1 ) definekey$ 17435 rmail_scroll_backward" ^? " $1 ) definekey$ 1744> rmail_xpunge_or_move_deletions! x " $1 ) definekey$ 1745> rmail_xpunge_or_move_d eletions! X " $1 ) definekey$ 1746+ rmail_reply! r " $1 ) definekey$ 1747+ rmail_reply! R " $1 ) definekey$ 17485 rmail_forward_message! f " $1 ) definekey$ 17495 rmail_forward_message! F " $1 ) definekey$ 17506 rmail_output_to_fo lder! o " $1 ) definekey$ 1751. rmail_undelete! u " $1 ) definekey$ 1752. rmail_undelete! U " $1 ) definekey$ 1753* rmail_edit! E " $1 ) definekey$ 1754$ mail! m " $1 ) definekey$ 1755$ mail! M " $1 ) definekey/b,$ 1760 # bol $ 1761( Folder: * looking_at. $ beepw/b$ 1762! % ffindP$ 1763 * skip_white$ 1764 ) push_mark$ 1765" ( % ffind.$ 1767! 0 ( pop_mark$ 1768 $ beepw/b$ 1772 ) bufsubstr 3 rmail_select_folder$ 1758y8 rmail_select_this_folder$ 1775, Rmail-Folder" $1$ 1776 " $1 ( keymap_p.$ 1778 " $1 + make_keymap$ 1779" 32# 127! 1.$ 1781 $ char" $2$ 1782 " $2 " $1 + undefinekey/h$ 17844 rmail_folder_newmail! g " $1 ) definekey$ 17854 rmail_folder_newmail! G " $1 ) definek ey$ 17860 rmail_quit_rmail! q " $1 ) definekey$ 17870 rmail_quit_rmail! Q " $1 ) definekey$ 17888 rmail_select_this_folder! " $1 ) definekey$ 17898 rmail_select_this_folder$" \r " $1 ) definekey$ 1790$ mail! m " $1 ) definekey$ 1791$ mail! M " $1 ) definekey/b,*$ 1796 # lck+*$ 1798 $ lpid ( this_pid+ & getpid & string( this_pid* & do_del+*$ 1799 # lfn+, ___LOCKED___# lfn*$ 1800 ) lock_file+ / Rmail_Directory # lfn & dircat) lock_file*$ 1801 # ret+! 0# ret* ( write_it+! 0( write_it*$ 1802 & errbuf+*$ 1803 ' ourhost+$ HOST & getenv' ourhost ' ourhost $ NULLA. ' ourhost/c*$ 1804 ( lockhost+ + Null_String( lockhost*$ 1805 + lock_buffer+*$ 1806 % flags+$ 1808! # lfn9+ lock_buffer.$ 1811 + loc k_buffer ' bufferp.$ 1813 + lock_buffer & setbuf$ 1814! 0 8 set_buffer_modified_flag$ 1815 + lock_buffer & delbuf/c/n$ 1818 3 EXECUTE_ERROR_BLOCK$ 1820 ) lock_file ) read_fileP - clear_message$ 1821 + getbuf_info% flagsP$ 1822 + lock_bu ffer % flags + setbuf_info$ 1823 4 set_buffer_no_backup$ 1826 # bob ) push_mark$ 1827" 58 * ffind_char.$ 1829 ) bufsubstr( lockhost$ 1830 * go_right_1$ 1831 ) push_mark/c$ 1833 # eol ) bufsubstr$ lpid$ 1835 + delete_line$ 1837% %s:%s ' ou rhost ( this_pid ' vinsert$ 1839 # lck.$ 1841 ( lockhost & strlen.$ 1843 ( lockhost ' ourhostB.$ 1845S Pid %s on host %s is locking the mail file. Sorry.$ 1846 $ lpid ( lockhost$ 1845 & verror/c/c$ 1851 $ lpid ' integer! 0 $ kill. $ lpid/c$ 1853 $ lpid & strlen $ lpid ( this_pidBC.$ 1855I Pid %s is locking mail directory. Sorry.$ 1856 $ lpid$ 1855 & verror/c$ 1858 + save_buffer$ 1862 , erase_buffer$ 1863 6 rmail_set_buffer_flags$ 1864! 1w/c$ 1874 ( lockhost ' ourhostA $ lpid ( this_pidAC.$ 1875 ) lock_file + delete_fileP/c$ 1878 + lock_buffer ' bufferp.$ 1880 + lock_buffer & setbuf$ 1881! 0 8 set_buffer_modified_flag$ 1882 + lock_buffer & delbuf/c$ 1884! 0w$ 1796y5 rmail_check_lock_file,$ 1889 1 r mail_exit_folder$ 1891 8 rmail_save_buffer_secure$ 1892 1 Rmail_Root_Buffer & delbuf$ 1893! 0 5 rmail_check_lock_fileP$ 1887y0 rmail_quit_rmail,*$ 1898 ! n+$ 1899! 1 5 rmail_check_lock_file.w/b$ 1901 1 Rmail_Folder_Name! 1 1 rmail_save_ folder$ 1902 + Null_String3 Rmail_Folder_Buffer$ 1904 1 rmail_folder_mode$ 1906 1 rmail_get_newmail! n$ 1907 ! n.$ 19090 %d new messages. ! n ' sprintf % flush$ 1910 4 Rmail_Newmail_Folder 3 rmail_select_folder/c$ 1896y% rmail