P [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) y h z -#5  f~LRP3}Q9  %{ ;*c|o^g'17EEQ& Setup QSEND Librarym.m^R QSENDu:.x(Q) 0m.vold buffer0m.vold previous buffer :i*m.vQSEND Initial Recipients :I*[Qsend ^R]m.vQSEND Mode Line^R Qsend[..O f[dfile1f[^Linsert 0[..f0[.f FNqOld Bufferm(m.mSelect Buffer) qOld Previous BufferuPrevious Buffer 0u..h :i*fo..qBuffer Nameuold buffer qprevious bufferuold previous buffer m(m.mSelect Buffer)*QSEND* [...M m.m^R MAIL Insteadu...M [.] m.m^R EXIT QSENDu.] [. qQsend Mode Line[..j 0f[^RENTER FS^RARGP"E hkiTo: --Text follows this line--  3jGQSEND Initial recipients fsRGETTY"EHT' m(m.mText Mode)w FQQSEND Initial Recipients"E 0j:L'"# ZJ'' 1f <0,q4:FB F:;  FROM: q4+3u4 q5+3u5> 0u6 -1[7 2 q7"l :I*NOR NO RECIPIENTS SPECIFIEDFSERR' 0u6 0[8 <0u8q6,q4:fb TO: CC: BCC:f(;)+3"E1u8' .(:l.+1u2)j q2-1u6 .u3 w > > FSRGETTY"E:FTQSEND Done ' & Mail One Recipient[2[3[4 m(m.m& Copy Buffer With CRLF) s--Text follows this line-- .-28u2 0,q2:fb SUBJECT:"L 0lx3' 0,q2:fb FROM: F:"L 0lx4'"# 0jiFROM:fsxunamef6i  0jfx4' 0,q2k g4 .(iTO:  2r),.:fb@%"N :Li(R-MODE-SEND 0)' 2cQ3"LG3' m(m.m& Mail Instead) ^R Mail Insteadm(m.m& MAIL Instead) f;MAILED & Mail Insteadm(m.m& Copy Buffer With CRLF) s--Text follows this line-- .u2 0,q2:fb FROM: F:"E 0jiFROM:fsxunamef6i ' J1F[Bothcase:S --Text follows this line--"L Z-.<1AF  :;C> 1A-15."EOWin'' :I*No text, just headerFSERR !Win! [2 0LFSZ-.F[VZ J<.-Z; :FB:"L0^FCL!' 1A-15."EL!' :I*Garbage in message headerFSERR > JI J ' -D:I20FF~TO"N0X2 :I2 (R-OPTION 2)' 0K <:FB@ ;RD>0L ' .-Z(0LITO:1A-("E)+ZJ' "#I()+ZJI)' I FQ2"N-S)G2L' :0L0A-)"NI )-2S)F 'L -2-Q3;> :0L> J:S FROM:"EICLAIMED-FROM:FSXUNAMEF6I '"# CLAIMED-FROM:' J:S H:"L HEADER-FORCE:^FC' J:S S:"L SUBJECT:' J:S R:"L REGISTERED:^FC' JIFROM-JOB:FSXJNAMEF6I SENT-BY:FSUNAMEF6I  ZJI TEXT;-1  F]VZK F[DFILEETDSK:.MAIL.;MAIL > FSMACHINE-(F6DM)"EETAI:' E\FNE^ EIHPEF & CLI message[2 :I*[1 m(m.m& Copy Buffer With CRLF) s--Text follows this line--0l 0,.fsboundaries 0j:s FROM: F:"L .u2:li ( fsunamef6 i@fsmachinef6i) q2,.x2 0lk '"# fsuname:f6u2' "E 0js TO: CC:0lk' 0j<:s BCC:;0lk> 0ji Message from 2 [ m(m.mInsert DATE) :Li] 0,(fsz)fsboundaries 0js--Text follows this line--0lFX2 1f 3> ftMessage to 1 MAIL'ed.  f]BBIND m(m.m& MAIL One Recipient)1 > ^R EXIT QSENDf;MAILED& Copy Buffer With CRLF[0hx0f[bbindg0 0,2f= "N 0ji ' 0j& EQ ..L FSHSNAME:f6[1fsxuname:f6[2 e?DSK:1;2 [EQ]"EER1;2 [EQ]@YM(HFX*)HK' hkfsmsnamefsdsnameet@> FJzf"Nj-2d'HFXQSEND Initial Recipients FSECHOLINES-2"G2FSECHOLINESW' FSRGETTY"E1FSTTMODE' m(m.m^R QSEND) $.:VK QSEND:M(M.M^R QSEND) ~FILENAME~QSEND~DOC~ ~FILENAME~Edited SENDing ~DOC~ & Setup QSEND LibraryS Set up the QSEND command on ^XQ ~DOC~ ^R QsendC Does a :SEND ala RMAIL REPLY. You will be in a buffer divided by a line reading: --Text after this line-- with the cursor just after a TO: You fill in the header above the line, and place the message below it. Then you send it with C-M-C or C-[ALTMODE]. While in the command, there are a few special chars: C-M-M -- Mails the buffer instead of SENDING it C-] -- Exits the QSEND macro without sending C-M-C -- Sends the buffer C-[ALTMODE] -- Sends the buffer The following possible header lines have significance: To:, CC:, BCC:, S:, Subject:, From:, F: The requirement is that at least one TO:, CC:, or BCC: recipient be found. If ^R QSEND is given an argument, it will not re-initialize the QSEND buffer. Further info can be found in Z;QSEND DOC ~DOC~ & Mail One RecipientS Mail buffer to one recipient only This macro takes a string argument, copies the buffer, edits out all TO: and CC: lines, and then calls & MAIL BUFFER on the result. ~DOC~ ^R Mail Instead^R Mail the buffer instead of :SENDING it ~DOC~ & Mail InsteadS Mail the buffer instead of :SENDING it, don't leave QSEND ~DOC~ & CLI messageS Edit and send via CLI: one formatted message from a buffer formatted like for & Mail BUFFER ~DOC~ ^R EXIT QSEND^R Exit QSEND without sending anything. The contents of the buffer are preserved ~DOC~ & Copy Buffer With CRLFS Copy the current buffer into a temporary. Ensure that the first ine is a CRLF Pushes Q0 and old buffer. Q0 is clobbered, and cannot be restored. ~DOC~ & EQ ..L Things to do to run QSEND as a stand-alone job ~DOC~ QSENDC Same as ^R QSEND, for MM useage. Q.V. ~DIRECTORY~& Setup QSEND Library ^R Qsend & Mail One Recipient ^R Mail Instead & Mail Instead & CLI message ^R EXIT QSEND & Copy Buffer With CRLF & EQ ..L QSEND ~INVERT~[1Q1