From c0775a842baed9ef8dcda4aa574459f1a67f8fcc Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Wed, 13 Feb 2008 07:50:45 +0000
Subject: [PATCH] Created NO_AUTO_EXEMPT option to disable the new automatic
DNSBL-exempting of recipient mail addresses (for Deuce).
---
src/sbbs3/ctrl/MailCfgDlgUnit.cpp | 5 +++++
src/sbbs3/ctrl/MailCfgDlgUnit.dfm | 7 ++++---
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.cpp b/src/sbbs3/ctrl/MailCfgDlgUnit.cpp
index c3cc61eba8..eca44cef43 100644
--- a/src/sbbs3/ctrl/MailCfgDlgUnit.cpp
+++ b/src/sbbs3/ctrl/MailCfgDlgUnit.cpp
@@ -179,6 +179,8 @@ void __fastcall TMailCfgDlg::FormShow(TObject *Sender)
=(MainForm->mail_startup.options&MAIL_OPT_DNSBL_CHKRECVHDRS);
AdvancedCheckListBox->Checked[i++]
=(MainForm->mail_startup.options&MAIL_OPT_DNSBL_THROTTLE);
+ AdvancedCheckListBox->Checked[i++]
+ =!(MainForm->mail_startup.options&MAIL_OPT_NO_AUTO_EXEMPT);
DNSBLRadioButtonClick(Sender);
DNSRadioButtonClick(Sender);
@@ -355,6 +357,9 @@ void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender)
setBit(&MainForm->mail_startup.options
,MAIL_OPT_DNSBL_THROTTLE
,AdvancedCheckListBox->Checked[i++]);
+ setBit(&MainForm->mail_startup.options
+ ,MAIL_OPT_NO_AUTO_EXEMPT
+ ,!AdvancedCheckListBox->Checked[i++]);
MainForm->MailAutoStart=AutoStartCheckBox->Checked;
MainForm->MailLogFile=LogFileCheckBox->Checked;
diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
index 807232fadc..ad2e7a9348 100644
--- a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
@@ -53,8 +53,8 @@ object MailCfgDlg: TMailCfgDlg
Top = 4
Width = 342
Height = 245
- ActivePage = DNSBLTabSheet
- TabIndex = 6
+ ActivePage = AdvancedTabSheet
+ TabIndex = 7
TabOrder = 3
object GeneralTabSheet: TTabSheet
Caption = 'General'
@@ -879,7 +879,8 @@ object MailCfgDlg: TMailCfgDlg
'Allow receipt of mail by user number'
'Allow receipt of mail to '#39'sysop'#39' and '#39'postmaster'#39
'Check '#39'Received'#39' header fields against DNSBL'
- 'Throttle DNS blacklisted server sessions')
+ 'Throttle DNS blacklisted server sessions'
+ 'Auto-exempt sent-mail recipients from DNSBL')
TabOrder = 0
end
end
--
GitLab