Skip to content
Snippets Groups Projects
Commit c0775a84 authored by rswindell's avatar rswindell
Browse files

Created NO_AUTO_EXEMPT option to disable the new automatic DNSBL-exempting

of recipient mail addresses (for Deuce).
parent 154d344b
No related branches found
No related tags found
No related merge requests found
......@@ -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;
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment