(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   @(JKP.Wjb]i&v:	'!"(|& Fix Mail-From
& Header?Cut HeaderReverse Mail List~DIRECTORY~~DOC~ & Fix Mail-From~DOC~ & Header?~DOC~ Cut Header~DOC~ Reverse Mail List~DOC~ ~Filename~~Filename~~INVERT~;[1[2
k
.u1
-l.,.+9:fb-------
"L-lki
'"#q1j'
MM& Fix Mail-From
l
!loop!
.u1l.-q1-2"EOdone'
q1j
.,.+6:fbFrom: "LOmatch'
.,.+9:fbSubject: "LOmatch'
.,.+7:fbClass: "LOmatch'
kOloop
!match!
lOloop
!done!
MM^R Set/Pop Mark
<MM& Header?
q0"El'"#1;'
>
-l
2MM^R Indent Rigidly
l
:.u00l
z-.-24:"GOnomatch'
3a--"NOnomatch'
7a--"NOnomatch'
13a-:"NOnomatch'
16a-:"NOnomatch'
19a--"NOnomatch'
23a-,"NOnomatch'
q0j
-1u0

!nomatch!
q0j
0u0
.,.+10:FBMail-from::"LOend'
0l
iDate:
1MM^R Kill Word
1MM^R Kill Word
1MM^R Kill Word
1MM^R Kill Word
!end!
0l
o[0[1[2[3
.u2
<
.-z"E'
<
l
.-z@;
MM& Header?
q0:@;
>
q2u1
.u2
q1,q2x3
q1,q2k
bjg3
q2j
>
CVTMAIL%For dealing with PSL bug reports.*C Removes unwanted fields from a mail header.
One must already be positioned at the start of a mail header.
Cursor is left at the beginning of the next mail header./C -1 if current line is header line else 0.WC Fixes up any initial "Mail-from:" line.
Some "date" lines actually begin with "Mail-from" and contain
additional information not wanted here.  Cursor is left at the
beginning of the same line it started on.C Reverses a bufferful of mail messages.
The idea is to move forward through the file putting messages
found later in front of all found sooner.?Cut Header
& Header?
& Fix Mail-From
Reverse Mail List
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2