Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/mmail.elib
There are no other files named mmail.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   M&+.Z:ECQa\nito
+B"V.?;JUYb
n\z>Uk
(;/>
UNVY6s\!!g Y."o="K";Y"g"-x"U"`"(17"GE!tUScgs E~K,17BI['iu:5%& MMAIL ..L& MMAIL Default Setup& MMAIL DIRED ..F& MMAIL DIRED Delete& MMAIL DIRED Enter& MMAIL DIRED Examine& MMAIL DIRED Flag& MMAIL DIRED Help& MMAIL DIRED Mark& MMAIL DIRED Mark Subr& MMAIL DIRED Quit& MMAIL DIRED Reply"& MMAIL DIRED Reverse Undelete& MMAIL Dired Setup& MMAIL DIRED Type& MMAIL DIRED Undelete& MMAIL FS Superior& MMAIL Message Setup& MMAIL Redisplay& MMAIL Reply Setup& MMAIL Send Setup& Setup MMAIL LibraryMMAIL Dired^R MMAIL Dont Change Field^R MMAIL Return to Superior^R MMAIL Send Mail^R MMAIL Yank~DIRECTORY~~DOC~ & MMAIL ..L~DOC~ & MMAIL Default Setup~DOC~ & MMAIL DIRED ..F~DOC~ & MMAIL DIRED Delete~DOC~ & MMAIL DIRED Enter~DOC~ & MMAIL DIRED Examine~DOC~ & MMAIL DIRED Flag~DOC~ & MMAIL DIRED Help~DOC~ & MMAIL DIRED Mark!~DOC~ & MMAIL DIRED Mark Subr~DOC~ & MMAIL DIRED Quit~DOC~ & MMAIL DIRED Reply(~DOC~ & MMAIL DIRED Reverse Undelete~DOC~ & MMAIL Dired Setup~DOC~ & MMAIL DIRED Type ~DOC~ & MMAIL DIRED Undelete~DOC~ & MMAIL FS Superior~DOC~ & MMAIL Message Setup~DOC~ & MMAIL Redisplay~DOC~ & MMAIL Reply Setup~DOC~ & MMAIL Send Setup~DOC~ & Setup MMAIL Library~DOC~ MMAIL Dired$~DOC~ ^R MMAIL Dont Change Field%~DOC~ ^R MMAIL Return to Superior~DOC~ ^R MMAIL Send Mail~DOC~ ^R MMAIL Yank~DOC~ ~Filename~~Filename~
~INVERT~?:I*TextM.VDefault Major Mode
1,m(m.m& Get Library Pointer)MWIND"e
m(m.mLoad Library)MWIND'
m.m& MMAIL FS Superiorfssuperior
m.m& MMAIL ..Lu..l
:iEditor typeMMAIL
1f[reread
m(m.mText Mode)
m(m.mRename Buffer)Message
f]reread
-1[0m.m& Create Buffer[1[2[3
qMode[4
@:i2|m1u3q4u:.b(q3+3)|
:i*Headersm2:i*Replym2
m(m.m& Set Mode Line)
1fsexit
0fo..qMMAIL Setup Hook[0
fq0"gm0'
fsrgettym.vMMAIL Two Window Reply Default
fsrgettym.vMMAIL Two Window Send Default
0m.vMMAIL Two Window Dired Default
m.m^R MMAIL Yanku...Y
m.m ^R MMAIL Return to Superioru:.X()
1:<M(M.MKill Variable)MM ^R Return to Superior>
M.M ^R MMAIL Return to SuperiorM.VMM ^R Return To Superior
0FO..Q MMAIL C-X C-S Send"N(m.m^R MMAIL Send Mail)u:.X()'
m.m^R MMAIL Dont Change Fieldu:.X()
/[0[1[2.,(fj-@f
k-@:ffx0-d).fx1
q1m(m.mSelect Buffer)
0fs^renter
m(m.m& MMAIL 0 Setup)
0FO..QReturn from Superior Hooku0q0"Nm0']2]1]0
:m(m.m& Toplevel ^R)%[10f[ReadOnlyf[Modifiedf[XModified
.,(fj-@f
k).fx1
f]XModifiedf]Modifiedf]ReadOnly
q1m(m.mSelect Buffer)j
0f[ReadOnly
"l0'"#hk',0i
0fsexit
60fsREADONLY
:I*FO..QEditor Name:i..JA ]A
0f[topline0f[lines0f[refresh
0FO..QExit to Superior Hook0"Nm0'
f+0fsexit
0FO..QReturn from Superior Hooku0q0"Nm0']0K:i*Messagem(m.m& Find Buffer)[0
.,(g:.b(q0+4)
.)fsboundaries
ff"N'"#4'[A
0FO..QMMail Prune Headers
QP"NJ<:FB;
0l
5F~DATE:"N
5F~FROM:"N
8F~SUBJECT:"N1K'"#1L'
'"#1L'
'"#1L'
>'
JQA"Gw<.-z;WQA,32I1@l>wJ'
.:
J13I10I
zj0,fszfsboundaries
1,m(m.m^R Kill Windows)
m(m.m& MMAIL Send Setup)
:,.[00FO..QExit to Superior Hookf"nu0m0'
0f[topline0f[lines0f[refresh
f+-1fsexit
0FO..QReturn from Superior Hookf"nu0m0']0[00FO..QExit to Superior Hookf"nu0m0'
0f[topline0f[lines0f[refresh
f+-2fsexit
0FO..QReturn from Superior Hookf"nu0m0']01,:m(m.m^R Kill Windows)U1,m(m.m^R Kill Windows)
0fo..qMMAIL Two Window Send Default"g
m(m.mSelect Buffer)Headers
jbfsWindow
m(m.m& MMAIL Redisplay)
1[0:<1,0:fm%0>
jq0,m(m.m^R Split Window)'
m(m.mSelect Buffer)Reply
L1,m(m.m^R Kill Windows)
0fo..qMMAIL Two Window Reply Default"g
m(m.mSelect Buffer)Message
js

.-bfsWindow
m(m.m& MMAIL Redisplay)
m(m.m^R Split Window)'
m(m.mSelect Buffer)Reply
1,m(m.m^R Kill Windows)
j0fo..qMMAIL Two Window Dired Default"g
m(m.mSelect Buffer)Messagew
m(m.m& MMAIL Redisplay)
m(m.m^R Split Window)'
m(m.mSelect Buffer)Dired
m.m& MMAIL DIRED Enterf[^Renter
[..J:I..J(MMAIL DIRED)
1f[readonly
0u..hGfsHeight-(fsEchoLines)/2f[Lines
@:i*|@vfs^RExit|f[^REnter
y0F[^RENTER
m.m& MMAIL DIRED Helpf[HelpMac
M.M& MMAIL DIRED ..F[..FWQ..F[.F
1F[^RMDLYW0F[^RMCNT
M.VMMAIL DIRED Dispatch
[MMAIL DIRED Dispatch
13*5FSQVECTOR[0
Q0UMMAIL DIRED Dispatch
-1[1
M.M& MMAIL DIRED DeleteU:0(%1)
M.M& MMAIL DIRED DeleteU:0(%1)
M.M& MMAIL DIRED UndeleteU:0(%1)
M.M& MMAIL DIRED Reverse UndeleteU:0(%1)
FS^RINITU:0(%1)
M.M& MMAIL DIRED MarkU:0(%1)
M.M& MMAIL DIRED FlagU:0(%1)
M.M& MMAIL DIRED ReplyU:0(%1)
M.M& MMAIL DIRED ExamineU:0(%1)
M.M& MMAIL DIRED TypeU:0(%1)
M.M& MMAIL DIRED HelpU:0(%1)
M.M& MMAIL DIRED QuitU:0(%1)
M.M& MMAIL DIRED QuitU:0(%1)
]1]00 KFS^RMODE"E'
[0[1[20^V
<2,M.I^:FI:FCU0
Q0FDKU MFRET?QXU1
Q0-200.FDKF"GU1'
Q1+1"GFI
FS^RARGP&2"N
FS^RARG'"#1'U2
FS^REXPT<Q2*4U2>
FS^RARGP"NQ2'^M:MMAIL DIRED Dispatch(Q1)(
0FS^RARGPW0FS^RARGW0FS^REXPTW
-1FS^RPREVW
)^V!<!>'
^:FIU0Q0&177.-137."GQ0-40.U0'
Q0^FS^RCMAC-(32FS^RINIT)"E
FGFI!<!>'
0;>0,500.+4,m(m.m& MMAIL DIRED Mark Subr)D,600.+4,m(m.m& MMAIL DIRED Mark Subr)D'1,m(m.m& MMAIL DIRED Mark Subr)U'2,m(m.m& MMAIL DIRED Mark Subr)F)-l1m(m.m& MMAIL DIRED Undelete)(-l).0l"gz-'."efg1'
0f[readonly
:i*[0
<.-z;
"l.;-l'&77.c
&300.f"n&100."n1a-32"ef0''"#1a-32"nf '''
"#w1a-32"ef0'"#f ''
"gl'>
&400."e-l'"#-'f m(m.mdescribe)MMAIL DIREDa0l.[0@fNRUFAD l\(
qCurrent Window
1:<m(m.m^R Goto Window)>"n0uC'
)+777774777777.fsExit
0fsPJATY
"eht'
"#0[..FQ..F[.F
qEditor Name[1[..J:i..J[1 ]
m.m ^R New Windowu:.X()
j'
m.m ^R MMAIL Return To Superioru:.X()
qC"g1:<qCm(m.m^R Goto Window)>'
m(m.mSelect Buffer)Dired
0f[ReadOnly
q0j1a-N"efR'2a-32"n.+1f '':M(M.M^R MMAIL Return to Superior)00l.[0@fNRUFAD l
\+777773777777.fsexit
m.m ^R New Windowm.vmm ^R Return To Superior
1,:m(m.m& MMAIL DIRED Type)
m.m ^R MMAIL Return To Superiorm.vmm ^R Return To Superior	MMAIL#Macros for MM - EMACS interfaceVS Set up MMAIL commands.
C-M-Y is yank in current msg, C-X C-Q is don't change field (abort),
and C-X C-S is send mail if  q$MMAIL C-X C-S Send$ nonzero.
But, if q$MMAIL Setup hook non-zero, runs it instead.9S ..L for MMAIL.
Gets what we are doing from the JCLgS FS Superior for MMAIL.
Gets the name of the buffer to select from the JCL as well as making room2^R Return to MM and update field being editted^R Insert the current message (one being replied to)
Indents arg spaces (default 4).  Leaves point and mark around inserted text.
If the variable MMAIL PRUNE HEADERS is nonzero, a cleanup of the
headers is performed leaving only the Date, From, and Subject fields.7^R Pass contents of the buffer to superior to send.3^R exit and tell MM not to make the edit changeS Nothing special./S Prepare for editting an existing message.2S Prepare for editting a message in send mode.3S Prepare for editting a message in reply mode.(C Edit the message headers
	Enters ^R mode with the list in the buffer.
	D deletes the message which is on the current line. (also K,^D,^K)
	U undeletes the current line message.
	Rubout undeletes the previous line message.
	Space is like ^N - moves down a line.
        M toggles the unseen (marked) bit.
	F toggles the flag bit.
	R replies to the current line message.
	T types the message.
	E edit the message in a recursive ^R.
	? types this cruft.
	Q or X exits
The D,U commands repeat if given an argument, backwards if negative.)S Fool redisplay for multiple windowsmS FS ^R ENTER for DIRED.
Puts & MMAIL DIRED ..F into ..F so that this ^R becomes
a DIRED command loop..S ..F macro to make ^R understand DIRED commands.
It reads DIRED commands and executes them.  When a control- or
meta- character is typed, it is left for ^R to execute.S Delete current file.S Delete current file.S Delete current file.S Delete current file.$S Move up one line and undo a D.S Pre-comma is position.S Type our help msg.S Type out this message.S Exit from DIRED.S Reply to current message.	S ...D& Setup MMAIL Library
& MMAIL ..L
& MMAIL FS Superior
^R MMAIL Return to Superior
^R MMAIL Yank
^R MMAIL Send Mail
^R MMAIL Dont Change Field
& MMAIL Default Setup
& MMAIL Message Setup
& MMAIL Send Setup
& MMAIL Reply Setup
& MMAIL Dired Setup
MMAIL Dired
& MMAIL Redisplay
& MMAIL DIRED Enter
& MMAIL DIRED ..F
& MMAIL DIRED Delete
& MMAIL DIRED Undelete
& MMAIL DIRED Mark
& MMAIL DIRED Flag
& MMAIL DIRED Reverse Undelete
& MMAIL DIRED Mark Subr
& MMAIL DIRED Help
& MMAIL DIRED Type
& MMAIL DIRED Quit
& MMAIL DIRED Reply
& MMAIL DIRED Examine
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2