{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}

unit mail3;

interface

uses

crt, dos,

{rcg11172000 no overlay under Linux.}

{overlay,}

common, timejunk, mail0;

function what00(b:byte; s:string):string;

procedure readmsg(style:byte; anum,mnum,tnum:longint; var abort,next:boolean);

implementation

function what00(b:byte; s:string):string;

begin

if (b=0) then

s:=caps(s)

else

case b of

0:s:=caps(s);

1,

2:s:='**Anonymous**';

3:s:='"Abby"';

4:s:='"Problemed Person"';

5:s:=caps(s);

else

s:=allcaps(s);

end;

what00:=s;

end;

{ anum=actual, mnum=M#/t#, tnum=m#/T# }

procedure readmsg(style:byte; anum,mnum,tnum:longint; var abort,next:boolean);

var mhead:mheaderrec;

mixr:msgindexrec;

pdt:packdatetime;

dt:ldatetimerec;

s,s1:string;

brdsig,lng,maxm,totload:longint;

i,numread:word;

done,pub,seeanon,usemci,usereal,isfido:boolean;

procedure getout;

begin

gotlastmheader:=TRUE;

lastmheader:=mhead;

end;

function tnn(lng:longint):string;

var s:string;

begin

if (lng>100) then lng:=lng mod 100; { ex: 1989 --> 89 }

s:=cstr(lng); while (length(s)<2) do s:='0'+s;

tnn:=s;

end;

begin

usereal:=(mbrealname in memboard.mbstat);

isfido:=(memboard.mbtype<>0);

{rcg1117 removed mixr...}

{with mhead,mixr do begin}

with mhead do begin

loadmhead(anum,mhead);

ensureloaded(anum);

mixr:=mintab[getmixnum(anum)];

usemci:=(miallowmci in mixr.msgindexstat);

loadboard(board);

wasyourmsg:=(fromi.usernum=usernum);

pub:=(bread<>-1);

if (pub) then seeanon:=aacs(systat.anonpubread)

else seeanon:=aacs(systat.anonprivread);

if (mhead.fromi.anon=2) then seeanon:=aacs(systat.csop);

abort:=FALSE;

next:=FALSE;

printacr('',abort,next);

s:='Number: '+#3#3+cstr(mnum)+'/'+cstr(tnum);

printacr(s,abort,next);

s:='';

if (not (miexist in mixr.msgindexstat)) then begin

s:='Status: '+#3#8+'Deleted';

if ((not mso) and (not wasyourmsg)) then begin

printacr(s,abort,next);

getout;

exit;

end;

end;

if (miunvalidated in mixr.msgindexstat) then begin

if (s='') then s:='Status:';

s:=s+#3#7+' Not Validated';

if ((not mso) and (not wasyourmsg)) then begin

printacr(s,abort,next);

getout;

exit;

end;

end;

{rcg1117 added mixr...}

{if ((pub) and (mipermanent in msgindexstat)) then begin}

if ((pub) and (mipermanent in mixr.msgindexstat)) then begin

if (s='') then s:='Status:';

s:=s+#3#3+' Permanent';

end;

if (s<>'') then printacr(s,abort,next);

{rcg1117 added mixr...}

{if ((fromi.anon=0) or (seeanon)) then s:=pdt2dat(@msgdate,msgdowk)}

if ((fromi.anon=0) or (seeanon)) then s:=pdt2dat(@mixr.msgdate,mixr.msgdowk)

else s:='***Unknown***';

s:='Date : '+#3#3+s;

if (style=4) then begin

s:=s+#3#1+' ('+aonoff(pub,'Posted: ','Sent: ')+#3#9;

for i:=1 to 6 do

pdt[i]:=mixr.msgdate[i];

pdt2dt(pdt,dt);

s1:=tnn(dt.month)+'/'+tnn(dt.day)+'/'+tnn(dt.year);

i:=daynum(date)-daynum(s1);

s:=s+cstr(i)+' day'+aonoff((i=1),'','s')+' ago'+#3#1+')';

end;

printacr(s,abort,next);

if (origindate<>'') then

if ((fromi.anon=0) or (seeanon)) then

printacr('Origin: '+#3#3+origindate,abort,next);

s1:=fromi.as;

if (pub) then begin

if (usereal) then begin

s1:=fromi.real;

if (not isfido) then s1:=s1+' #'+cstr(fromi.usernum);

end;

end;

s:='From : '+#3#5+caps(what00(fromi.anon,s1));

if (not abort) then sprint(s);

if ((seeanon) and (fromi.anon<>0) and (toi.anon=0) and (not isfido)) then begin

s1:='(Real : '+#3#5;

if (usereal) then s1:=s1+caps(fromi.real)

else s1:=s1+caps(fromi.alias);

s1:=s1+' #'+cstr(fromi.usernum)+#3#1+')';

printacr(s1,abort,next);

end;

if (style<>2) then begin

s1:=toi.as;

if (pub) then begin

if ((toi.as='') and (isfido)) then s1:='All' else begin

if ((usereal) and (toi.real<>'')) then begin

s1:=allcaps(toi.real);

if (not isfido) then s1:=s1+' #'+cstr(toi.usernum);

end;

end;

end;

if (s1<>'') then begin

s:='To : '+#3#5+caps(what00(toi.anon,s1));

if (not usemci) then printacr(s,abort,next) else begin

sprint(s);

wkey(abort,next);

end;

end;

if ((seeanon) and (toi.anon<>0) and (not isfido)) then begin

if (fromi.anon=0) then begin

s1:='(The user really is : '+#3#5;

if (usereal) then s1:=s1+caps(toi.real)

else s1:=s1+caps(toi.alias);

s1:=s1+' #'+cstr(toi.usernum)+#3#1+')';

printacr(s1,abort,next);

end else begin

s1:='(The user really is : '+#3#5;

if (usereal) then s1:=s1+caps(fromi.real)

else s1:=s1+caps(fromi.alias);

s1:=s1+' --> ';

if (usereal) then s1:=s1+caps(toi.real)

else s1:=s1+caps(toi.alias);

s1:=s1+#3#1+')';

printacr(s1,abort,next);

end;

end;

end;

if (not usemci) then

printacr('Subject : '+#3#3+title,abort,next)

else begin

sprint('Subject : '+#3#3+title);

wkey(abort,next);

end;

if (mixr.isreplyto<>65535) then

printacr(' >> '+#3#3+'Reply to message '+#3#5+cstr(mixr.isreplyto+1),

abort,next);

i:=mixr.numreplys;

if (i<>0) then

printacr(' >> '+#3#3+'This message has '+#3#5+cstr(i)+#3#3+' repl'+

aonoff((i=1),'y','ies'),abort,next);

printacr('',abort,next);

if ((fromi.anon=0) or (seeanon)) then

lastname:=caps(what00(fromi.anon,fromi.as))

else

lastname:='';

if (not abort) then begin

reading_a_msg:=TRUE;

{rcg1117 added mixr...}

{read_with_mci:=(miallowmci in msgindexstat);}

read_with_mci:=(miallowmci in mixr.msgindexstat);

totload:=0;

abort:=FALSE;

next:=FALSE;

seek(brdf,mhead.msgptr);

repeat

blockreadstr2(brdf,s);

inc(totload,length(s)+2);

printacr(s,abort,next);

until ((totload>=msglength) or (abort));

read_with_mci:=FALSE;

reading_a_msg:=FALSE;

printacr('',abort,next);

if (dosansion) then redrawforansi;

end;

end;

getout;

end;

end.