unused helper removed

git-svn-id: http://svn.miranda-ng.org/main/trunk@5194 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 52 deletions

diff --git a/plugins/Utils.pas/mirutils.pas b/plugins/Utils.pas/mirutils.pas
index 0ac1750e76..6762f00866 100644
--- a/plugins/Utils.pas/mirutils.pas
+++ b/plugins/Utils.pas/mirutils.pas
@@ -55,7 +55,6 @@ function  GetContactStatus(hContact:THANDLE):integer;
 function  IsContactActive(hContact:THANDLE;proto:pAnsiChar=nil):integer;

 

 function CreateGroupW(name:pWideChar;hContact:THANDLE):integer;

-function CreateGroup (name:pAnsiChar;hContact:THANDLE):integer;

 

 function MakeGroupMenu(idxfrom:integer=100):HMENU;

 function GetNewGroupName(parent:HWND):pWideChar;

@@ -800,57 +799,6 @@ begin
   result:=1;

 end;

 

-function CreateGroup(name:pAnsiChar;hContact:THANDLE):integer;

-var

-  groupId, res:integer;

-  groupIdStr:array [0..10] of AnsiChar;

-  grbuf:array [0..127] of AnsiChar;

-  p, pa:pAnsiChar;

-begin

-  if (name=nil) or (name^=#0) then

-  begin

-    result:=0;

-    exit;

-  end;

-

-  StrCopy(@grbuf[1],name);

-  grbuf[0]:=CHAR(1 or GROUPF_EXPANDED);

-

-  // Check for duplicate & find unused id

-  groupId:=0;

-  repeat

-    pa:=DBReadString(0,'CListGroups',IntToStr(groupIdStr,groupId));

-    if pa=nil then

-      break;

-

-    res:=StrCmp(pa+1,@grbuf[1]);

-    mFreeMem(pa);

-    if res=0 then

-    begin

-      if hContact<>0 then

-      DBWriteString(hContact,strCList,clGroup,@grbuf[1]);

-      result:=0;

-      exit;

-    end;

-

-    inc(groupId);

-  until false;

-

-  DBWriteString(0,'CListGroups',groupIdStr,grbuf);

-

-  if hContact<>0 then

-    DBWriteString(hContact,strCList,clGroup,@grbuf[1]);

-

-  p:=StrRScan(grbuf,'\');

-  if p<>nil then

-  begin

-    p^:=#0;

-    CreateGroup(grbuf+1,0);

-  end;

-

-  result:=1;

-end;

-

 function MyStrSort(para1:pointer; para2:pointer):int; cdecl;

 begin

   result:=StrCmpW(pWideChar(para1),pWideChar(para2));