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/Utils.pas/mircontacts.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'plugins/Utils.pas/mircontacts.pas')

diff --git a/plugins/Utils.pas/mircontacts.pas b/plugins/Utils.pas/mircontacts.pas
index 1ec228ce3e..1c3b614324 100644
--- a/plugins/Utils.pas/mircontacts.pas
+++ b/plugins/Utils.pas/mircontacts.pas
@@ -455,8 +455,7 @@ begin
       begin
         if not anystatus then
         begin
-          StrCat(pc,PS_GETSTATUS);
-          anystatus:=(CallService(pc,0,0)<>ID_STATUS_OFFLINE);
+          anystatus:=(Proto_GetStatus(pc)<>ID_STATUS_OFFLINE);
         end;
         if anystatus then
         begin
-- 
cgit v1.2.3