//Thanks go out to Eggs Zachtly for this script. It's purpose is to make
//Inboxes invisible for those of us that don't use them.

Program OnNewsgroupListPaint;
Function
OnNewsgroupListPaint(PaintString:WideString;ColumnIndex:Integer):WideString;
Begin
   PaintString := StringReplace(PaintString,'Inbox','',[rfReplaceAll])
   Result := PaintString;
end;