From ff046336cecda77ecfd40b14806f070177928173 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 28 Mar 2013 18:13:58 +0000
Subject: [PATCH] Check KeepAskingSetting in MessageDialog() on older Windows
 versions. Broken since r4302. Fixes issue #3147.

---
 source/helpers.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/source/helpers.pas b/source/helpers.pas
index 4e6de949..f72370d1 100644
--- a/source/helpers.pas
+++ b/source/helpers.pas
@@ -2515,7 +2515,16 @@ begin
     m := Msg;
     if Title <> '' then
       m := Title + CRLF + CRLF + m;
-    Result := MessageDlg(m, DlgType, Buttons, 0);
+
+    if KeepAskingSetting <> asUnused then
+      KeepAskingValue := AppSettings.ReadBool(KeepAskingSetting)
+    else
+      KeepAskingValue := True;
+
+    if KeepAskingValue then
+      Result := MessageDlg(m, DlgType, Buttons, 0)
+    else
+      Result := mrNo;
   end;
 end;