Paste no longer allows Email base to not be the first base

This commit is contained in:
mysticbbs 2012-11-18 03:47:50 -05:00
parent 0ebac16d67
commit 7c498afaf9
1 changed files with 1 additions and 1 deletions

View File

@ -232,7 +232,7 @@ Begin
HasCopy := True; HasCopy := True;
End; End;
'P' : If HasCopy Then Begin 'P' : If HasCopy And (List.Picked > 1) Then Begin
MBaseFile.RecordInsert (List.Picked); MBaseFile.RecordInsert (List.Picked);
MBaseFile.Write (Copied); MBaseFile.Write (Copied);