From 7c37a6f6927452dc59b4fc86a63999e4d9d3d6d1 Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Sat, 13 Jul 2002 10:22:54 +0000
Subject: [PATCH] Reads and saves new option: MailDNSBlacklistFlag.
---
src/sbbs3/ctrl/MainFormUnit.cpp | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/src/sbbs3/ctrl/MainFormUnit.cpp b/src/sbbs3/ctrl/MainFormUnit.cpp
index 014fd83c6c..cd3c6acf4e 100644
--- a/src/sbbs3/ctrl/MainFormUnit.cpp
+++ b/src/sbbs3/ctrl/MainFormUnit.cpp
@@ -1465,6 +1465,12 @@ void __fastcall TMainForm::StartupTimerTick(TObject *Sender)
SAFECOPY(mail_startup.default_user
,Registry->ReadString("MailDefaultUser").c_str());
+ if(Registry->ValueExists("MailDNSBlacklistFlag"))
+ SAFECOPY(mail_startup.dnsbl_flag
+ ,Registry->ReadString("MailDNSBlacklistFlag").c_str());
+ else
+ SAFECOPY(mail_startup.dnsbl_flag,"SPAM");
+
if(Registry->ValueExists("MailDNSServer"))
SAFECOPY(mail_startup.dns_server
,Registry->ReadString("MailDNSServer").c_str());
@@ -1829,6 +1835,7 @@ void __fastcall TMainForm::SaveSettings(TObject* Sender)
Registry->WriteInteger("MailPOP3Port",mail_startup.pop3_port);
Registry->WriteString("MailDefaultUser",mail_startup.default_user);
+ Registry->WriteString("MailDNSBlacklistFlag",mail_startup.dnsbl_flag);
Registry->WriteString("MailRelayServer",mail_startup.relay_server);
Registry->WriteInteger("MailRelayPort",mail_startup.relay_port);
--
GitLab