eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reply msg fix

This commit is contained in:
mysticbbs 2012-07-12 21:22:51 -04:00
parent 0b1f3dd7a1
commit a0d0330ac7
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
mystic/bbs_msgbase.pas
View File

@ -391,6 +391,7 @@ Begin
If (Count > 0) and (Count <= Total) Then Begin If (Count > 0) and (Count <= Total) Then Begin
Reset (MBaseFile); Reset (MBaseFile);
If Not Compress Then Begin If Not Compress Then Begin
Seek (MBaseFile, Count - 1); Seek (MBaseFile, Count - 1);
Read (MBaseFile, MBase); Read (MBaseFile, MBase);
@ -637,7 +638,9 @@ Begin
If Session.User.Access(Group.ACS) Then Begin If Session.User.Access(Group.ACS) Then Begin
Session.User.ThisUser.LastMGroup := FilePos(GroupFile); Session.User.ThisUser.LastMGroup := FilePos(GroupFile);
If Intro Then Session.io.OutFile ('group' + strI2S(Data), True, 0);
If Intro Then
Session.io.OutFile ('group' + strI2S(Data), True, 0);
End Else End Else
Group := tGroup; Group := tGroup;
@ -673,6 +676,7 @@ Begin
While Not Eof(MBaseFile) Do Begin While Not Eof(MBaseFile) Do Begin
Read (MBaseFile, tMBase); Read (MBaseFile, tMBase);
If Session.User.Access(tMBase.ListACS) Then Inc(Areas); If Session.User.Access(tMBase.ListACS) Then Inc(Areas);
End; End;
@ -711,7 +715,9 @@ Begin
Repeat Repeat
Read (GroupFile, Group); Read (GroupFile, Group);
If Not Group.Hidden And Session.User.Access(Group.ACS) Then Inc(Total); If Not Group.Hidden And Session.User.Access(Group.ACS) Then Inc(Total);
If A = Total Then Break; If A = Total Then Break;
Until False; Until False;
@ -843,6 +849,7 @@ Begin
Assign (tFile, Session.TempPath + 'msgtmp'); Assign (tFile, Session.TempPath + 'msgtmp');
{$I-} ReWrite (tFile); {$I+} {$I-} ReWrite (tFile); {$I+}
If IoResult = 0 Then Begin If IoResult = 0 Then Begin
Temp3 := MsgBase^.GetFrom; Temp3 := MsgBase^.GetFrom;
Temp2 := Temp3[1]; Temp2 := Temp3[1];
@ -884,17 +891,7 @@ Begin
Session.io.OutFull (Session.GetPrompt(107)); Session.io.OutFull (Session.GetPrompt(107));
Case MBase.BaseType of If Not OpenCreateBase(MsgNew, MBase) Then Exit;
0 : MsgNew := New(PMsgBaseJAM, Init);
1 : MsgNew := New(PMsgBaseSquish, Init);
End;
MsgNew^.SetMsgPath (MBase.Path + MBase.FileName);
If Not MsgNew^.OpenMsgBase Then Begin
Dispose (MsgNew, Done);
Exit;
End;
AssignMessageData(MsgNew); AssignMessageData(MsgNew);
@ -946,7 +943,7 @@ Begin
End Else End Else
Session.io.OutFullLn (Session.GetPrompt(109)); Session.io.OutFullLn (Session.GetPrompt(109));
FileErase(Session.TempPath + 'msgtmp'); DirClean (Session.TempPath, '');
End; End;
Procedure TMsgBase.EditMessage; Procedure TMsgBase.EditMessage;