From 5811219420fdedef8941584ef70fec403d012e4e Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Sat, 7 Apr 2018 20:23:30 +0300
Subject: Proto_GetAccount() for pascal plugins

---
 plugins/Watrack/proto/proto.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'plugins/Watrack/proto')

diff --git a/plugins/Watrack/proto/proto.pas b/plugins/Watrack/proto/proto.pas
index d5a35157b1..33098c7f42 100644
--- a/plugins/Watrack/proto/proto.pas
+++ b/plugins/Watrack/proto/proto.pas
@@ -113,9 +113,8 @@ begin
   begin
     StrCopy(PAnsiChar(buf),Proto_GetProtoName(ccs^.hContact));
     i:=DBReadWord(ccs^.hContact,PAnsiChar(buf),'ApparentMode');
-    StrCat(PAnsiChar(buf),PS_GETSTATUS);
     if (i=ID_STATUS_OFFLINE) or
-       ((i=0) and (CallService(PAnsiChar(buf),0,0)=ID_STATUS_INVISIBLE)) then
+       ((i=0) and (Proto_GetStatus(PAnsiChar(buf))=ID_STATUS_INVISIBLE)) then
     begin
       result:=Proto_ChainRecv(wParam,ccs);
     end
-- 
cgit v1.2.3