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
0fo1 0f"g+q1 '
+fq()+4u1
fq1"l 0 '
,q1:m(q1+4(]1]0)) m 6 e @ 4 F R V Z Y g o
} q & Immediate Mail & RCUSR & Setup IMAIL Library ~DIRECTORY~ ~DOC~ & Immediate Mail ~DOC~ & RCUSR ~DOC~ & Setup IMAIL Library ~DOC~ ~Filename~ ~Filename~
~INVERT~ IMAIL4 15*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)
b f[bbind
i
0i
[0
q& RCUSR code[..O
fs real address/5u0
]..O
fs real address/5m0 0 [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~1 0"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 '
0 Send 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:42u S 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