Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/imail.elib
There are no other files named imail.elib in the archive.
(W[0 +8+fq(+4)[1
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))m6e@4FRVZYgo

}	q& Immediate Mail& RCUSR& Setup IMAIL Library~DIRECTORY~~DOC~ & Immediate Mail~DOC~ & RCUSR~DOC~ & Setup IMAIL Library~DOC~ ~Filename~~Filename~

~INVERT~	IMAIL415*5fs q vectorM.V& RCUSR code
q& RCUSR code[0330000000000.u:0(0)261740000002.u:0(1)261740000003.u:0(2)560100000003.u:0(3)205040000001.u:0(4)400140000000.u:0(5)104000000554.u:0(6)200040000003.u:0(7)620000000001.u:0(8)262740000003.u:0(9)262740000002.u:0(10)350017000000.u:0(11)263740000000.u:0(12)
bf[bbind
i
0i
[0
q& RCUSR code[..O
fs real address/5u0
]..O
fs real address/5m00[0[1[2[3[4[5[6
q..ou2
f[BBind q..ou3 q2[..o
q3u..o 5,0i 400000000000.,0fs word
q2u..obj
fsmachineu0
0u5
j <:s@;
   :x1
f~10"n j 1u5 0;'
fkc .u1 0l .,q1x1 2l
m(m.m& RCUSR)1u4
q4"e
j 1u5 0;'
q3u..o 5,0i
q4,.-1fs word
q2u..o >
q5"n 1'
q3u..o
10,0i
g()
fs xunameu1
etps:<1>msg.tmp
ei h@p ef
fs o fileu1
@ft(Local Mail...
-(1,@fzEMACS:IMMEDIATE-MAIL.EXE 1)fz
f[b bind
<
fs listen"E
:i*Success unknown:..ofs err'
fiu1 q1-177.@; q1i>
hf=OK"E
@ftDelivered Sucessfully)0fs echoac'
"#:g..ofserr 1'
0Send mail with IPCF Mailer$S Define things needed by IMAIL
Makes a q-vector & RCUSR code containg code that & RCUSR
needs to run.
This object file was compressed on 12:48pm  Tuesday, 12 March 1996
by ALDERSON on TOED.XKL.COM from the following source libraries:

   DXX:<EMACS>IMAIL.EMACS.1,	10/28/84 06:57:42uS Do RCUSR on string argument
Accepts a user name as string argument and returns the user
number (36 bit style){S Send mail using IPCF mailer
Accepts text of message as string numarg and list of recipients in current
buffer.  Recipients are in format USER@SITE, crlf, USER at SITE, crlf.  Local
recipients are delivered locally and deleted from the buffer.6& Setup IMAIL Library
& RCUSR
& Immediate Mail
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2