2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/HistoryPlusPlus/GlobalSearch.pas b/plugins/HistoryPlusPlus/GlobalSearch.pas
index cc8e087680..5454de3ffe 100644
--- a/plugins/HistoryPlusPlus/GlobalSearch.pas
+++ b/plugins/HistoryPlusPlus/GlobalSearch.pas
@@ -1369,7 +1369,7 @@ begin
   hContact := THandle(Item.Data);
   if hContact = 0 then
     exit;
-  UserMenu := CallService(MS_CLIST_MENUBUILDCONTACT, hContact, 0);
+  UserMenu := Menu_BuildContactMenu(hContact);
   if UserMenu <> 0 then
   begin
     UserMenuContact := hContact;
diff --git a/plugins/HistoryPlusPlus/HistoryForm.pas b/plugins/HistoryPlusPlus/HistoryForm.pas
index 095ce2f5b2..5593f130f1 100644
--- a/plugins/HistoryPlusPlus/HistoryForm.pas
+++ b/plugins/HistoryPlusPlus/HistoryForm.pas
@@ -3654,7 +3654,7 @@ procedure THistoryFrm.tbUserMenuClick(Sender: TObject);
 var
   p: TPoint;
 begin
-  UserMenu := CallService(MS_CLIST_MENUBUILDCONTACT, hContact, 0);
+  UserMenu := Menu_BuildContactMenu(hContact);
   if UserMenu <> 0 then
   begin
     p := tbUserMenu.ClientToScreen(Point(0, tbUserMenu.Height));