p [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0))  e 'A'[4uAN[huk5c:D@55+&W+Ea)3=_36Oy8C3&7PV"}]& j&!w !g  J / & I Wc e!} s:s  % f  V ! E !H   s :s )' 7 s E S@ 6, }$ 1n P:  D? G z I %;q = WH :G D KG A+ ^21 ew nLu xO ME K- K- ?K- )K- eK- <K- M OK- K- bK- K- uK- K-K- #K-K- IK-.K- oKAU WTM_ UEgQc NKzNTTC-MS V/STv3QEyMFPMgYOQlOLNP O7N%K']Mg8KmBKLPVV`N9jPtK~LuMPWL&P50M:LDOQNVXM/bOQlLva# QP]S Q^Q6L]Ce Se K oe}^ Me=[e 6dYe OauSmiJsJvzj # RMAIL $V# RMAIL $X# RMAIL $^[# RMAIL (# RMAIL )# RMAIL *# RMAIL +# RMAIL ,# RMAIL -# RMAIL .# RMAIL /# RMAIL 0# RMAIL 1# RMAIL 2# RMAIL 3# RMAIL 4# RMAIL 5# RMAIL 6# RMAIL 7# RMAIL 8# RMAIL 9# RMAIL ;# RMAIL =# RMAIL ?# RMAIL A# RMAIL B# RMAIL C# RMAIL D# RMAIL F# RMAIL G# RMAIL I# RMAIL J# RMAIL K# RMAIL L# RMAIL M# RMAIL N# RMAIL O# RMAIL P# RMAIL Q# RMAIL R# RMAIL S# RMAIL T# RMAIL U# RMAIL W# RMAIL X# RMAIL Y# RMAIL Z# RMAIL ^# RMAIL ^?# RMAIL ^@# RMAIL ^A# RMAIL ^C# RMAIL ^D# RMAIL ^F# RMAIL ^G# RMAIL ^H# RMAIL ^J# RMAIL ^L# RMAIL ^M# RMAIL ^O# RMAIL ^R# RMAIL ^V# RMAIL ^X# RMAIL ^Z# RMAIL ^[# RMAIL ^]# RMAIL ^`& Find Dash Separator& Mail Buffer& Mail Message& Push Buffer& Reformat header& RMAIL --MORE--& RMAIL Command String& RMAIL Enter& RMAIL Execute Options& RMAIL Initialize& RMAIL Parse Header& RMAIL Select Message& RMAIL Stand-alone EntryReformat Tenex MailRMAIL EnterUndigestify Message^R RMAIL Yank~DIRECTORY~~DOC~ # RMAIL $V~DOC~ # RMAIL $X~DOC~ # RMAIL $^[~DOC~ # RMAIL (~DOC~ # RMAIL )~DOC~ # RMAIL *~DOC~ # RMAIL +~DOC~ # RMAIL ,~DOC~ # RMAIL -~DOC~ # RMAIL .~DOC~ # RMAIL /~DOC~ # RMAIL 0~DOC~ # RMAIL 1~DOC~ # RMAIL 2~DOC~ # RMAIL 3~DOC~ # RMAIL 4~DOC~ # RMAIL 5~DOC~ # RMAIL 6~DOC~ # RMAIL 7~DOC~ # RMAIL 8~DOC~ # RMAIL 9~DOC~ # RMAIL ;~DOC~ # RMAIL =~DOC~ # RMAIL ?~DOC~ # RMAIL A~DOC~ # RMAIL B~DOC~ # RMAIL C~DOC~ # RMAIL D~DOC~ # RMAIL F~DOC~ # RMAIL G~DOC~ # RMAIL I~DOC~ # RMAIL J~DOC~ # RMAIL K~DOC~ # RMAIL L~DOC~ # RMAIL M~DOC~ # RMAIL N~DOC~ # RMAIL O~DOC~ # RMAIL P~DOC~ # RMAIL Q~DOC~ # RMAIL R~DOC~ # RMAIL S~DOC~ # RMAIL T~DOC~ # RMAIL U~DOC~ # RMAIL W~DOC~ # RMAIL X~DOC~ # RMAIL Y~DOC~ # RMAIL Z~DOC~ # RMAIL ^~DOC~ # RMAIL ^?~DOC~ # RMAIL ^@~DOC~ # RMAIL ^A~DOC~ # RMAIL ^C~DOC~ # RMAIL ^D~DOC~ # RMAIL ^F~DOC~ # RMAIL ^G~DOC~ # RMAIL ^H~DOC~ # RMAIL ^J~DOC~ # RMAIL ^L~DOC~ # RMAIL ^M~DOC~ # RMAIL ^O~DOC~ # RMAIL ^R~DOC~ # RMAIL ^V~DOC~ # RMAIL ^X~DOC~ # RMAIL ^Z~DOC~ # RMAIL ^[~DOC~ # RMAIL ^]~DOC~ # RMAIL ^`~DOC~ & Find Dash Separator~DOC~ & Mail Buffer~DOC~ & Mail Message~DOC~ & Push Buffer~DOC~ & Reformat header~DOC~ & RMAIL --MORE--~DOC~ & RMAIL Command String~DOC~ & RMAIL Enter~DOC~ & RMAIL Execute Options~DOC~ & RMAIL Initialize~DOC~ & RMAIL Parse Header~DOC~ & RMAIL Select Message~DOC~ & RMAIL Stand-alone Entry~DOC~ ~DOC~ Reformat Tenex Mail~DOC~ RMAIL Enter~DOC~ Undigestify Message~DOC~ ^R RMAIL Yank~DOC~ ~Filename~~Filename~~INVERT~[0[1[20[3[5[.1[.2[.3 0FO..QRMAIL DISPLAY[6 [..J :I*RMAIL[Editor Type QEMACS Version-140"L -1F[NOQUIT @:I*|[..J:I..J[..J ^R]0F[NOQUIT|F[^RENTER' !BACKFROMC-X! F' FQ5"G5'@M1F"NOINPUT' >U0 >U0 "E' -1"E Q0-1"E40000.'+100000.FSEXIT OBACKFROMC-X' q0-1"E140000.FSEXIT':I5500:I559999900[..J:I..JRMAIL-Shhh M(M.M& Read Line);U3FF"NM(M.M# RMAIL J)' FSZ-Z"EFTEnd of buffer ' [0[.2[.3[1[7 0F[VB -:S:.U1 1U7J<.-Q1;:S;%7> F]VB FT # Q7= 140.M(M.M& RMAIL Parse Header) 4L.-B-200"GB+200J.U1:@LFSHPOS-120"GQ1J'"#L'' .-B-Q.3"LB+Q.3J' Z-.-150"LZJ' B,.T-2F= "NFT ' :M(M.M& RMAIL --MORE--).-Z"N[1[2 .(0U2<%2WL.-Z;>W)J FT(Q2:=Z-./(FSWIDTH*Q2) FT lines)--MORE-- ]2]1' @FT FSRGETTY"EFT  FF"N.,(L).T M(M.M& RMAIL --MORE--)' "#.,ZT ZJ-2F= "NFT '' ' .-Z"EJ' F@M(M.M^R NEXT SCREEN) F@M(M.M^R Previous Screen) 0F[^RMOREFI400.FSREREADW0M(M.M^R Execute Mini)W<1M(M.M# RMAIL N) @M(M.M# RMAIL B)>"L-:M(M.M# RMAIL P)' [00,FSZFSBOUND 0U0<:S;.+2-Z"L.U0'> Q0"NQ0J :M(M.M& RMAIL Select Message)' .,ZFSBOUND :I*No next message, now at eofFSERR}0F[VB0F[VZ .[1FNQ1J BJ-2"LJM(M.M& RMAIL Select Message)' "#-99998"G ZJ. M(M.M& RMAIL Select Message)' "#J0U0 -1<:S;.+2-Z"L.U0'> Q0"E :I*NSM No Such MessageFSERR' Q0JM(M.M& RMAIL Select Message)'' ]..N]1]*W]*W .[1FNQ1J 0F[VB0F[VZ :-SWQ1-."E Q1J0F]VZ0F]VB :I*NPM No Previous MessageFSERR' ]*W]*W]..N]1 :M(M.M& RMAIL Select Message){:-S: ."E10F~*APPEND* "E10C'' @:F"G15.I12.I2R'@L 0,1AF  "L'"#@F  K' .[0 :S: Q0,.FSBOUNDWJ 0,fszfsboundw m(m.m& rmail select message) B-2,Z+1FSBOUNDW G(Q..O( QRMAIL Deletions[..O)) ]..OHK 0,FSZFSBOUNDW "L 1:<1M(M.M# RMAIL P)>"L :I*DFM Deleted First Message:FG M(M.M& RMAIL Select Message)' ' .[1@F R .-Z"E Q1,ZFSBOUND :I*DFM Deleted Final Message:FG ' :M(M.M& RMAIL Select Message)-1M(M.M# RMAIL D)QRMAIL Deletions[9 FQ9"E :I*NDM No Deleted Messages to UndeleteFSERR' -:S: ."E10F~*APPEND* "E10C'' Q9[..O 0A-"NI'R -:S: .,Z(]..O)G9FKC Q9[..O.,ZK ]..O m(m.m& RMAIL Select Message) QRMAIL Deletions[9 FQ9"E :I*NDM No Deleted Messages to YankFSERR' :S: 15.I12.I15.I12.I Q9[..O 0A-"NI'R -:S: .,Z-1(]..O)G9FKC Q9[..O.,ZK ]..O -Lm(m.m^R Delete Blank Lines) 1,M(M.M& Read Line)Find: [0 FQ0"L0' FQ0"NQ0URMAIL F Default' .[1FNQ1J 0F[VB0F[VZ QRMAIL F Default[2 :S2"Efg']2 ]*W]*W .U1 :M(M.M& RMAIL Select Message)QBuffer FilenamesF"N[1 FSZ"NM(M.M^R Save File)' FSZ"E1:'' 0FSVZW0FSVB HK1F? 0FSMODIFIED 0UBuffer Filenames 0U:.B(QBuffer Index+2) QRMAIL Deletions[..OHK1F?]..O 1F;RMAIL-CATCH2F;RMAIL-CATCHFm(m.m^R Extended Command) QBuffer Filenames[1 FSZ"NM(M.M^R Save File)' FSZ"E1:'' 0,FSZFSBOUNDW F+0@:FF+:\[0[1F[DFILE[..O 0FO..QRMAIL ^O FilenamesF"NU..O' "#FSBCREATE Q..OM.VRMAIL ^O Filenames' FF"EFT^O numbers and filenames   HT' J:S#0 "L:X1ET1' "# QRMAIL O FilenameU1ET1 1,M(M.M& Read Line)Append message to file #0 (1): U1 FQ1"L'ET1 FSDFILEU1 ZJI#0 1  C\L' Q1URMAIL O Filename ]..O 1,:m(m.m# RMAIL O)B-2F[VBWB,B+2F= "NWF]VBW' "E QRMAIL O Filename[1 Q1F[DFILE 1,M(M.M& Read Line)Add message to (1): U1 FQ1"L'ET1 FSDFILEURMAIL O Filename ' Q..O[1F[BBIND E?"EER@A' "#@FT(New File)0fsechoact' J1F=*APPEND* "EZJ' G1I .-Z"N.-(./5*5),32I' EIHPEF |0[Comment StartF[WINDOW :I*To resume, invoke the Mail command again with a numeric argument.[Abort Resumption Message 0fo..QRMAIL Reply Buffer"E0m.vRMAIL Reply Buffer' :i**Mail*[RMAIL Reply Buffer FF&1"E1+'1,:M(M.ARMAIL# RMAIL R)[0[132[25.m(m.m& RMAIL parse header) 0FO..QRMAIL Reply BufferU1 Q1FP"GFQ1"E0U1'' Q1"EFSBCONSM.VRMAIL Reply Buffer' FSQPPTR Q..O[5 QRMAIL Reply BufferM(M.M& Push Buffer) hk iTo: S:[Forwarded: 0, Re: 2] Header-Force:RFC733 --Text follows this line--  g5bj3c QPFSQPUNWIND 1,:M(M.M# RMAIL R)1,:M(M.M# RMAIL R)2,:M(M.M# RMAIL R)~ [2[3.[0[.4FNQ0J..O[5[..O1[8 QAbort Resumption Message"E :i*Use the C command to resume editing this message[Abort Resumption Message' 0FO..QRMAIL Reply BufferU2 Q2FP"GFQ2"E0U2'' Q2"E FSBCONSM.VRMAIL Reply Buffer' -1"E QRMAIL Reply BufferM(M.M& Push Buffer) OContinue' :I1Q1U2Q1U3Q1U0Q1U.4 "EFF&1"N12.+'605.M(M.M& RMAIL Parse Header)' FQ.4"GQ.4U0' QRMAIL Reply BufferM(M.M& Push Buffer) HK "EF~0COMSAT"E Q5[..O.(JS-----L.-BU0)J]..O Q0,FQ5G5 JQ8"NK <3F~To:"N3F~Cc:"N0;''K>' "#S  B,.K' JFQ2"GiSubject:2 ' ITo: --Text follows this line--  :-L OContinue'' FF&1"N G1G3 J<:ST;Cc:> J<:SC;Cc:> J<:S at ;@> J<:S @ ;@> ' FQ0"GJiTo:G0i  :<:S0; RFK+2D@f,  k> ' -2"NJ<:SINFO-;FKAF:, +1"G FKD.,(S, FKC.)K'>' J<:LW-@F ,K10,-3A-10"E0LK' L.-Z;> ZJI--Text follows this line--  J-2"NL' FQ2"GiSubject:2 ' FF&1"NQ8"EiHeader-Force:RFC733 '' ZJ-LI 2R -2"EITo:' !CONTINUE! F~ModeFundamental"E M(M.MText Mode)' 0[..F M.M^R RMAIL YANKU2 FS^RINIT-Q.Y"E Q2[.Y' 600.+@FS^RINIT-Q...Y"E Q2[...Y' 201.@FS^RINIT-Q...Y"E Q2[...Y' 3FS^RINIT#Q.C"E 33.FS^RINIT[.C' 35.FS^RINIT#Q.]"E M.MAbort Recursive Edit[.]' QParagraph DelimiterU2 FQ2"G:I22-'"#:I2-' Q2[Paragraph Delimiter 0FO..QRMAIL Reply HookF"NU2M2' 0F[WINDOW !Reedit! 0U..H [..J:I..JRMAIL-Mail FSRGETTY"EFT B,.TFT..A.,ZT' ]..J Q..0&337.-307."E' Z"E' 1:F"EW'@:FGOReedit Q..O[1F[BBINDG1 J1F[Bothcase:S --Text follows this line--"L @F  L 1A-15."EOWin'' :I*No text, just headerFSERR !Win! [2[30[4[50[6 0LFSZ-.F[VZ J<.-Z; 1af  +1"gl!' :fb:"lr-@f  k 0@fcl!' 1A-15."EL!' :I*Garbage in message headerFSERR > BJ:SSEND:"L @f  k1@fc1afNSA+1f"g-2(d)\0l5c'1a-13"ei-12r' :x60lk:I6 (R-MODE-SEND 6)' JI J <.-Z;:S CC: TO:; -D:I20FF~TO"N0X2 :I2 (R-OPTION 2)' 0K <:FB@ ;-D>0L <@f  k 1a-42."ecfb"!'!W' <:S(, +1"n0;'s)> FKDFKU3 0,1af  +1"g-1u3' 0F"E-2-Q3;!' .-ZU5 -@f  k 0LIRCPT: 1A-("EFLL.,Q5+Z:FB at "L@'Q5+ZJ' "#I( 1a-42."ecfb"!'!w' 1AF["L .,Q5+Z:FB<"L.(:FB>"L-D0L6C')-.D' .,Q5+Z:FB("LR.,(:FB)W).K-@F K' 0l.,Q5+Z:FB at "L@' 0l.,Q5+Z:FB "L 0l6c0,1a-42."n0L6CI"Q5+ZJ.,(0l.):FB@WI"!''!''' Q5+ZJI)' %4 I  :0L0A-)"NI )-2S)F 'L FQ2"N-S)G2L' Q6"N-S)G6L' -2-Q3;> :0L> Q4"E:I*No RecipientsFSERR' J:S BCC:"L:I*BCC option not supportedFSERR' J:S FROM:"EI AUTHOR:FSXUNAMEF6I '"# AUTHOR:' J:S H:"L HEADER-FORCE:@FC' J:S RE: S:"L SUBJECT:' J:S R:"L REGISTERED:@FC' j2f= "e2d' JIFROM-PROGRAM:FSXJNAMEF6I FROM-XUNAME:FSXUNAMEF6I FROM-UNAME:FSUNAMEF6I  ZJITEXT;-1  F]VZK F[DFILEETDSK:.MAIL.;MAIL > FSMACHINE-(F6DM)"EETMC:' E\FNE^ EIHPEF FP"E[..O:' F[MODECH[..J[Previous Buffer qBuffer Name[0 @:i*|m(m.mSelect Buffer)0|(]0)[..n m(m.mSelect Buffer) ::S--Text Follows This Line--  .:W.F[VBG5FSZ-.F[VZ FF"NZJH' J@F L <.-Z; :SCC:TO:SUBJECT:MESSAGE-ID:+5"N 0@L@FK!' @:F@; @L> ZJ0@F"GI ' J<:@F"N4,32I'@L.-Z;> ZJHM(M.M^R Save File) @M(M.M^R Visit File) :M(M.M& RMAIL Select Message)M(M.M^R Save File) 0FSVBW0FSVZWHK FSHSNAMEF6I FSXUNAMEF6I  M(M.M& RMAIL INITIALIZE) M(M.M& RMAIL Select Message)[1[2[3[4[5 FSQPPTR 0F[VB0F[VZ Z-.-1U4 Q..OU2 F[BBINDQ..OU1[..O G2 J0S-1U5:I3   <.U0:S;-D .-Q0-100"GQ0+100,.K'G3 Z-.-Q4"G>0<'Q0U5-1U4> .-Z"NZJ.-Q0-100"GQ0+100,.K'G3' Q5"LQ0U5'Q5J 0[..F [..J:I..JRMAIL-"L"!''!  Q..0&337.-307."E' 0U0<-:S;%0> QPFSQPUNWIND 0FSVBW0FSVZWJ Q0"N:Q0S"EZJ'' :M(M.M& RMAIL Select Message)=FSRGETTY"EFT ' M.M& MAYBE FLUSH OUTPUT [0[3[6[.1[.2.[1 "EfnQ1Jf[vbf[vz[1' 0fsVBw0fsVZ [5 1[7J<:S;Q1-.:;%7> Q1J Q5"LQ7U1Q5-1:S"E1U7'"#CQ7+Q5U7' Q1-Q7U5' M(M.M& RMAIL Select Message) Q..O[4 F[BBINDQ..O[3[..O -F[TRUNCATE M.M& RMAIL Parse Header FF&1"N FT # Lines Date From Subject ' Q4U..O Q5' 1A-:"N0L0;'L1A-13"'N;FWL> @f  l:X6> BJ' FQ6+FQ.1+FQ0"E J@F R :X6' Q3U..OHK Q7\I: 7-FSHPOS,Q.2\32I 9-FSHPOSF"Gw1',32I FQ.1+FQ0"G 0,23-FSHPOSG.1 23-FSHPOSF"G,32I'' HTHK FQ0"GFT [ G0 FSXUNAME@F6U.2 F=0.2@-2-FQ.2"E FQ1"GHKITo:2,FQ1G1 J:L.,ZK'' J<:S AT ;@> J<:S@MIT-;-4D> ZJ18:J-:S :RW.,ZK HTFT]  6-FSHPOS '' FQ6+FQ3"G FQ2"EFTT: 6'"#FT2'' FT  Q4U..O F"NM()'U6 Q6:;Z-FSZ+3; Q6"E1M(M.M# RMAIL N) BJ%7' >~1f[^RMore :i*RMAIL Summarize/Kill[..J :^i*{[0 !type-in!FI:FCu0 Q0- "E0' Q0-D"E ftDelete m(m.m# RMAIL D)1' Q0-P"Eq7-1u7 1m(m.m# RMAIL P)1' Q0-N"E0' Q0-?"EftType D to delete message, space to see next, or N for next, P for previous. Anything else exits and is executed. Otype-in' Q0-K"EFGOtype-in' q0fsReReadw0u..H-1' {,999999:m(m.m# RMAIL B)100000.FSEXIT M.M~DOC~ # RMAIL ?[1 2,FQ1:G1U1 :FT1  [0[2[.1[.3[8m(m.m& rmail select message) .(525.m(m.m& rmail parse header)w)j q8"eodone' iDate: .1 From: 015.i12.i fq2"giSubject: 2'15.i12.i !done!0,FSZFSBOUND F[SSTRING[6.[7FNQ7J1F[BOTHCASEWZ[9 FSVB-2F[VBW 0[4 0[8 &1."N:I0'&2."N:I1'&4."N:I2'&10."N:I3' &20."N:I.1'&40."N0U.2'&100."N0U.3'&200."N:I.4' J1:"N]8&400."N1U8' ' J:FWL 4F=MSG:"EL FW+1F=DISTRIB:"E2L'' 7F=COMSAT@"E 1U4:S -----"LL'' 7F=FAILED:"E8C' .U6FWL0,1A--"EFWL' 0,1A-:"E :S  "L.U9' &120."N B,Q9:FB DATE:"L@F  R &20."N:X.1' &100."N.,Q.3FU.3W''' &104."N B,Q9:FB SUBJECT: RE:"L&4"N@F  R:X2' L&100."N.,Q.3FU.3W''' &1"N B,Q9:FB FROM:"L F[MODIFIEDW X0LG0-L :FB<"L0K:FB>W-D' "#:FB("L.-1,(:FB)"L).K -@F  K@F  KI '"#)W''' 0L@F  K :FB At "L-4DI@R' :FB@"L @F  KR -@F  K' :L-@F  K 0L:X0KF]MODIFIEDW'' &200."N B,Q9:FB REPLY-TO:"L F[MODIFIEDW X.4LG.4-L :FB<"L0K:FB>W-D' "#:FB("L.-1,(:FB)"L).K -@F  K@F  KI '"#)W''' 0L@F  K :FB At "L-4DI@R' :FB@"L @F  KR -@F  K' :L-@F  K 0L:X.4KF]MODIFIEDW'' '"#1U8 &1"NQ6J .,(:FB@"L:FWL:S WR).X0'' &20."N:FB/"N.-3,.+14X.1'' &4"N:FB Re: "N:FB WR:X2'' ' &2"N BJ<:S TO:;.-Q9; <@F  L :I11T@X1:L Q8:@; (0,3A-32)*(0,3A-9):@;L> >' &10."N BJ<:S CC:;.-Q9; <@F  R :I33C@X3:L Q8:@; (0,3A-32)*(0,3A-9):@;L> >' &100."NQ.3-2-BU.3Q.3"L0U.3'' &40."NBJ0U.2<%.2WL.-Z;>' &400."NQ8(]8W)U8' Q4"NBJL:I0COMSAT' [1 ,-:I1 0S 1 fu1 <:S"e0' q1,z-.f:u1w q1@f-L @F  L 2f= @; > 2c-1[0[1[3[L[T[B[D b,zm(m.m& Save for Undo)undigestify FF&1"e0FO..QUndigestify Keep Digest'"#'u1 q1"n HX0BJG0I  q1"l3RFSZ-.FSVZ'"#.FSVB'' :s@:+1"e ' "#:s  w' @F L .,(s  @r).XL fsmachine:f6u0 f=0MC*(f=0AI)*(f=0ML)"e :iT' "#:iT at MIT-AI' :iTTo: LT  m.m& Find Dash SeparatoruD 65,75mD"e :i*BDF Bad Digest FormatFSERR' -k-@F k f[vb fsbconsuB F -k-@f k > qBfsbkill f]vbwbj :m(m.m& RMAIL Select Message)bj :<:fb,; \(1a-;:@;0lk)c i  > bj[0[1[20[E[F[G[R0U7 1F[FNAMSY J:XAK :XBK J@F K ZJ-@F K Z"EI/' JI  ZJ0A-$"E-DI' 0A-33."E1UE' 15.I HFX0 Q..OU2 FSBCREATEWQ..OU1 32I-D FSBCREATEW G0JQ..OU0 ETDSK:A;B MAIL @:IR` [..O 1:[F "LFSDFILEU7' QF"N' QE"N"G EN OMAIL Q1U..OZJG(FSDFILE)I '' Q2U..OJ :"L@A' FSUREAD"N .,(10FY.)FXF 0FSIFACCESS F~F*APPEND* "EJZFSVZW@AZJ0FSVZW' "#@AJ'' ` !LP! S,/ 0A-33."E ET RMAIL .,ZK' 0AUG-D 0,.FXFETF QG-/"EF[DFILEE? OMAIL"EMRED' F]DFILE1MR' "#QG-33."E-'MR' Z-B-1"GOLP' Q2U..O QE"EJ' FQ1"E0UE' QE"N ET7EIHPEF Q1U..OJ <-Z;:XFKETF1:>' Q2U..O0FSMODIFIED 0U:.B(QBuffer Index+8) Q1FSBKILLQ0FSBKILL qF[SSTRINGF[DFILE[Previous Buffer1F[^RMORE QBuffer NameNM(M.MSelect Buffer)4[4 M(M.MSelect Buffer)*RMAIL* FSZ"E M(M.MTEXT MODE) FSHSNAMEF6I FSXUNAMEF6I  M(M.M& RMAIL INITIALIZE)' [2 FS^RMODE"NQ2,:M(M.M& RMAIL EXECUTE OPTIONS)' FS^RENTER[1 :I*Q1F[^RENTER Q2,M(M.M& RMAIL EXECUTE OPTIONS) FS^REXIT F[^RENTER  [..P@:I..P` FSERROR:@FG :KILL ` M(M.MTEXT MODE) 9FS^RINITUI 1FS^RMORE FSRGETTY"E 21FSTTMOD' "#2FSECHOLINES' HKFSHSNAMEF6I FSXUNAMEF6I  FJ FSTTYOPT&11000000000.-11000000000."E -1FS^HPRINTW-1FS^MPRINTW' M(M.M& RMAIL INITIALIZE) FSHSNAMEFSDSNAME ETDSK:FOO > [A[B[7 M(M.M& RMAIL COMMAND STRING) .-Z"E.-B"N-:S'' M(M.M& RMAIL Select) Q7UBuffer Filenames Q7U:.B(QBuffer Index+2) 0FO..QRMAIL O Filename"E :I*DSK:A;B XMAILM.VRMAIL O Filename' 0FO..QRMAIL F Default"E :I*M.VRMAIL F Default' 0FO..QRMAIL Deletions"E FSBCONSM.VRMAIL Deletions' RMAILRMAIL mail-reading program.S RMAIL command loop.S Part of a numeric argument.S Largest possible argument for whatever command follows.S ^@ is a no-op.S After ^G causes a quit, it shouldn't be an error too.S Rubout - just flush argument.S Accumulate a line, then execute it with no display.S Type some or all of this message.S Maybe print --MORE-- and the number of lines remaining in this message.S No-op, flushes argument.S Print more of this message.S Move to previous screenfull.S Call ^R to edit this message.S Altmode Command.S Mini Buffer Command.S Move to next message and summarize it.S Move to next message.S Jump to message with given number.S Move to previous message.S Set bounds around message that point is in. Sets point at the beginning of the message.S Delete this message, select next.S Delete message and move backward.S Undelete last deleted message.S Yank last deleted message into this message.S Find and select message containing specific string.S File out RMAIL file and exit RMAIL.nS Temporarily exit MM RMAIL. Doesn't file out. Repeating the MM RMAIL will resume with state unchanged.S Execute an MM command using the completing reader.S Write out the RMAIL file.S Access whole file.S Redisplay screen with cursor on topS Clear screen.S Write buffer to one of several files.S Write buffer to specified file.S Enter from outside RMAIL to mail one message.vC This is an RMAIL forward command. neIt reads a line which is a destination and send the current message there.S Continue editing a reply message.S Edit and then send a message.S Edit and then send a reply to current message.S Mail message as specified by buffer contents. Buffer should contain header information followed by a line containing "...Text follows this line...", followed by the text. Header info is as described in .MAIL.;MAILRQ INFO except that To: allows several recipients separated by commas, and Cc: is allowed. Also, use From: to say who you are.S Push-select buffer. Prefix arg is either TECO buffer, or string naming EMACE buffer. When caller returns, the original buffer will be re-selected.^R While editing a reply, yank message being replied to. Normally indents by four spaces and weeds out uninteresting lines from header, but numeric arg inhibits that.S File out RMAIL file, read in another.S Gobble any new mail received since RMAIL was started.S Use ^R to move around in list of all messages.S Type value of numeric argument.S Summarize one or more messages. A pre-comma argument is macroed after typing each line (# RMAIL K uses it), and must return -1 (exit), 0 (do next message), 1 (do current message). In that case, doesn't return to original spotS Summarize and kill messages D deletes, P previous, N or space next, ? help Anything else (e.g. period, R) exits and is then executed. K doesn't delete in case you accidentally hit it twice.S Return to DDT temporarily.S Here is a list of RMAIL options: OPTION ACTION T Types specified message (for printing terminal). N Goes to next message. D Deletes message, moves to next. Deleted messages go in QRMAIL Deletions. U Undeletes last message deleted. Y Yanks last deleted message into this one. P Moves back to previous message. B Briefs you. Prints summary of message. Arg is repeat count. A is equivalent to ;NB K Like ZB but after each line you may hit space, D (delete), etc. J Jumps to message N. Defaults to first message. M Sends a message. C-C C-C sends, C-] aborts. R Replies to sender of message. Use C-M-Y to yank text of message. Use 1R to include all the recipients. Exit same way as M command. C Resumes editing a reply, after aborting or sending it. O Adds message to file - reads file name. ^O Adds message to file. Remembers files by numbers. n^O adds to file n. Just ^O lists files and numbers. Space Looks at next screen of a long message. ^H Backs up to previous screen. . Goes to the beginning of the message. Q Exits, rewriting file. ^X,^] Exits to EMACS temporarily. Entering RMAIL again finds state unchanged. ^C,^Z Return to DDT temporarily. X eXecute a named EMACS command, with completion. S Rewrites file but does not exit. I Rewrites file, and reads a new RMAIL file. G Rewrites file, and gobbles any new mail. ; Reads rest of line and executes without redisplay. Altmode Meta-prefix as in EMACS. Altmode Altmode gets minibuffer. ^R Enters ^R mode recursively on the message text. ^L Redisplays screen. F Searches for a string. W Looks at entire file. "." reselects message pointed at. L Lists 1st 100 chars of all messages, Lets user move to a different message using ^R mode. Digits Are prefix repeat-count for N and P and B, msg # for J. Z Sets arg to largest possible value for that command. ?,Help Prints this text. For more help, run INFO.S Converts an ITS header to RFC733 format. Point should be just before header.S Extract contents of some fields of message header. Takes MASK as arg saying which fields to scan. The Q-register for a field will remain intact if field is not scanned. Q0 (mask bit 1) collects sender's name. Q1 (mask bit 2) collects recipients. Q2 (mask bit 4) collects subject of message. Q3 (mask bit 10) collects carbon copy names. Q.1 (mask bit 20) collects time of message. Q.2 (mask bit 40) has count of lines. Q.3 (mask bit 100) char offset of last useful line of header. Q.4 (mask bit 200) collects REPLY-TO name. Q8 (mask bit 400) is 1 iff header is ITS header. S Find a line of numarg1 to numarg2 dashes. Blanks before end of line are ignored. We move past the found line if any. Returns 0 for failure, -1 for success.oC break up a digest into individual messages. The digest is assumed to be the currently selected message. Adds a "To: List-name" field to each sub-message header, for identification and Replying. This command is UNDOable as long as no NON-digest messages have changed. Type "." after undoing, to reselect current message. If a variable Undigestify Keep Digest exists and is non-zero, a copy of the original digest will be kept. If the value is negative, the digest will follow the individual messages, if positive it will precede them. If a numarg is given it is used instead of the value of the variable.C Reformats the buffer from Tenex/Twenex mail file format to ITS mail file format. Works from within Rmail if you have selected a single message which contains a Tenex style mail file.S Processes an RMAIL command string.C Mail file editor subsystem (entry from within TECO).S Subroutine for ..L for a stand-alone RMAIL EJ file.S Process RMAIL command string, set up qregs for RMAIL.& RMAIL Execute Options # RMAIL 0 # RMAIL 1 # RMAIL 2 # RMAIL 3 # RMAIL 4 # RMAIL 5 # RMAIL 6 # RMAIL 7 # RMAIL 8 # RMAIL 9 # RMAIL + # RMAIL - # RMAIL * # RMAIL / # RMAIL ) # RMAIL ( # RMAIL , # RMAIL Z # RMAIL ^@ # RMAIL ^G # RMAIL ^? # RMAIL ; # RMAIL T & RMAIL --MORE-- # RMAIL ^M # RMAIL ^` # RMAIL ^V # RMAIL ^H # RMAIL $V # RMAIL ^R # RMAIL ^[ # RMAIL $^[ # RMAIL A # RMAIL N # RMAIL ^J # RMAIL J # RMAIL P # RMAIL ^ # RMAIL . & RMAIL Select Message # RMAIL D # RMAIL ^D # RMAIL U # RMAIL Y # RMAIL F # RMAIL Q # RMAIL ^X # RMAIL ^] # RMAIL X # RMAIL $X # RMAIL S # RMAIL W # RMAIL ^A # RMAIL ^L # RMAIL ^O # RMAIL O & Mail Message # RMAIL ^F # RMAIL C # RMAIL M # RMAIL R & Mail Buffer & Push Buffer ^R RMAIL Yank # RMAIL I # RMAIL G # RMAIL L # RMAIL = # RMAIL B # RMAIL K # RMAIL ^C # RMAIL ^Z # RMAIL ? & Reformat header & RMAIL Parse Header & Find Dash Separator Undigestify Message Reformat Tenex Mail & RMAIL Command String & RMAIL Enter RMAIL Enter & RMAIL Stand-alone Entry & RMAIL Initialize +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2