more pascal code cleaning

1 files changed, 0 insertions, 10 deletions

diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas
index 568ab558a0..a88a972b70 100644
--- a/plugins/Utils.pas/mircontacts.pas
+++ b/plugins/Utils.pas/mircontacts.pas
@@ -37,7 +37,6 @@ function FindContactHandle(Proto:PAnsiChar;const dbv:TDBVARIANT;is_chat:boolean=
 

 //----- Another functions -----

 

-function SetCListSelContact(hContact:TMCONTACT):TMCONTACT;

 function GetCListSelContact:TMCONTACT;

 

 function WndToContact(wnd:HWND):TMCONTACT; overload;

@@ -385,15 +384,6 @@ end;
 

 //----- Another functions -----

 

-function SetCListSelContact(hContact:TMCONTACT):TMCONTACT;

-var

-  wnd:HWND;

-begin

-  wnd:=cli^.hwndContactTree;

-  result:=hContact;

-  SendMessage(wnd,CLM_SELECTITEM   ,hContact,0);

-end;

-

 function GetCListSelContact:TMCONTACT;

 begin

   result:=SendMessageW(cli^.hwndContactTree,CLM_GETSELECTION,0,0);