From 453b608129b90e2095d19d49c8c5fe18ee73734d Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Wed, 17 Sep 2003 07:38:03 +0000
Subject: [PATCH] Added "Notify Recipients" checkbox to disable user
notifications of received e-mail.
---
src/sbbs3/ctrl/MailCfgDlgUnit.cpp | 6 +
src/sbbs3/ctrl/MailCfgDlgUnit.dfm | 539 +++++++++++++++---------------
src/sbbs3/ctrl/MailCfgDlgUnit.h | 1 +
3 files changed, 282 insertions(+), 264 deletions(-)
diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.cpp b/src/sbbs3/ctrl/MailCfgDlgUnit.cpp
index 408061b710..1da50eb749 100644
--- a/src/sbbs3/ctrl/MailCfgDlgUnit.cpp
+++ b/src/sbbs3/ctrl/MailCfgDlgUnit.cpp
@@ -118,6 +118,8 @@ void __fastcall TMailCfgDlg::FormShow(TObject *Sender)
&MAIL_OPT_DEBUG_RX_RSP;
DebugHeadersCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_DEBUG_RX_HEADER;
+ NotifyCheckBox->Checked
+ =!(MainForm->mail_startup.options&MAIL_OPT_NO_NOTIFY);
POP3EnabledCheckBox->Checked=MainForm->mail_startup.options
&MAIL_OPT_ALLOW_POP3;
POP3LogCheckBox->Checked=MainForm->mail_startup.options
@@ -222,6 +224,10 @@ void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender)
MainForm->mail_startup.options|=MAIL_OPT_DEBUG_RX_RSP;
else
MainForm->mail_startup.options&=~MAIL_OPT_DEBUG_RX_RSP;
+ if(NotifyCheckBox->Checked==false)
+ MainForm->mail_startup.options|=MAIL_OPT_NO_NOTIFY;
+ else
+ MainForm->mail_startup.options&=~MAIL_OPT_NO_NOTIFY;
if(DebugHeadersCheckBox->Checked==true)
MainForm->mail_startup.options|=MAIL_OPT_DEBUG_RX_HEADER;
else
diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
index 1f01289e94..ec4620dc40 100644
--- a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
@@ -1,25 +1,25 @@
object MailCfgDlg: TMailCfgDlg
- Left = 863
- Top = 636
+ Left = 841
+ Top = 501
BorderStyle = bsDialog
Caption = 'Mail Server Configuration'
- ClientHeight = 246
- ClientWidth = 286
+ ClientHeight = 303
+ ClientWidth = 352
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
- 286
- 246)
- PixelsPerInch = 96
- TextHeight = 13
+ 352
+ 303)
+ PixelsPerInch = 120
+ TextHeight = 16
object OKBtn: TButton
- Left = 20
- Top = 210
- Width = 75
- Height = 25
+ Left = 25
+ Top = 258
+ Width = 92
+ Height = 31
Anchors = [akLeft, akBottom]
Caption = 'OK'
Default = True
@@ -28,10 +28,10 @@ object MailCfgDlg: TMailCfgDlg
OnClick = OKBtnClick
end
object CancelBtn: TButton
- Left = 104
- Top = 210
- Width = 76
- Height = 25
+ Left = 128
+ Top = 258
+ Width = 94
+ Height = 31
Anchors = [akLeft, akBottom]
Cancel = True
Caption = 'Cancel'
@@ -39,64 +39,64 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 1
end
object ApplyButton: TButton
- Left = 189
- Top = 210
- Width = 75
- Height = 25
+ Left = 233
+ Top = 258
+ Width = 92
+ Height = 31
Anchors = [akLeft, akBottom]
Caption = 'Apply'
TabOrder = 2
OnClick = OKBtnClick
end
object PageControl: TPageControl
- Left = 3
- Top = 3
- Width = 278
- Height = 199
- ActivePage = SMTPTabSheet
- TabIndex = 1
+ Left = 4
+ Top = 4
+ Width = 342
+ Height = 245
+ ActivePage = DNSBLTabSheet
+ TabIndex = 5
TabOrder = 3
object GeneralTabSheet: TTabSheet
Caption = 'General'
object InterfaceLabel: TLabel
- Left = 7
- Top = 36
- Width = 85
- Height = 19
+ Left = 9
+ Top = 44
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Interface (IP)'
ParentShowHint = False
ShowHint = True
end
object MaxClientsLabel: TLabel
- Left = 7
- Top = 62
- Width = 85
- Height = 19
+ Left = 9
+ Top = 76
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Max Clients'
end
object MaxInactivityLabel: TLabel
- Left = 7
- Top = 88
- Width = 85
- Height = 19
+ Left = 9
+ Top = 108
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Max Inactivity'
end
object LinesPerYieldLabel: TLabel
- Left = 7
- Top = 114
- Width = 85
- Height = 19
+ Left = 9
+ Top = 140
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Lines Per Yield'
end
object AutoStartCheckBox: TCheckBox
- Left = 7
- Top = 10
- Width = 118
- Height = 19
+ Left = 9
+ Top = 12
+ Width = 145
+ Height = 24
Hint = 'Automatically startup mail servers'
Caption = 'Auto Startup'
ParentShowHint = False
@@ -104,10 +104,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 0
end
object NetworkInterfaceEdit: TEdit
- Left = 92
- Top = 36
- Width = 150
- Height = 21
+ Left = 113
+ Top = 44
+ Width = 185
+ Height = 24
Hint =
'Enter your Network adapter'#39's static IP address here or blank for' +
' <ANY>'
@@ -116,20 +116,20 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 2
end
object MaxClientsEdit: TEdit
- Left = 92
- Top = 62
- Width = 39
- Height = 21
+ Left = 113
+ Top = 76
+ Width = 48
+ Height = 24
Hint = 'Maximum number of simultaneous clients (default=10)'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object MaxInactivityEdit: TEdit
- Left = 92
- Top = 88
- Width = 39
- Height = 21
+ Left = 113
+ Top = 108
+ Width = 48
+ Height = 24
Hint =
'Maximum number of seconds of inactivity before disconnect (defau' +
'lt=120)'
@@ -138,10 +138,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 4
end
object HostnameCheckBox: TCheckBox
- Left = 150
- Top = 10
- Width = 119
- Height = 19
+ Left = 185
+ Top = 12
+ Width = 146
+ Height = 24
Hint = 'Automatically lookup client'#39's hostnames via DNS'
Caption = 'Hostname Lookup'
ParentShowHint = False
@@ -149,10 +149,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 1
end
object DebugTXCheckBox: TCheckBox
- Left = 150
- Top = 62
- Width = 119
- Height = 19
+ Left = 185
+ Top = 76
+ Width = 146
+ Height = 24
Hint = 'Log all transmitted mail commands and responses (for debugging)'
Caption = 'Log Transmissions'
ParentShowHint = False
@@ -160,10 +160,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 6
end
object LogFileCheckBox: TCheckBox
- Left = 150
- Top = 114
- Width = 119
- Height = 19
+ Left = 185
+ Top = 140
+ Width = 146
+ Height = 24
Hint = 'Save log entries to a file (in your DATA directory)'
Caption = 'Log to Disk'
ParentShowHint = False
@@ -171,10 +171,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 7
end
object LinesPerYieldEdit: TEdit
- Left = 92
- Top = 114
- Width = 39
- Height = 21
+ Left = 113
+ Top = 140
+ Width = 48
+ Height = 24
Hint =
'Number of lines of message text sent/received between time-slice' +
' yields'
@@ -183,10 +183,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 5
end
object DebugRXCheckBox: TCheckBox
- Left = 150
- Top = 88
- Width = 119
- Height = 19
+ Left = 185
+ Top = 108
+ Width = 146
+ Height = 24
Hint = 'Log all transmitted mail commands and responses (for debugging)'
Caption = 'Log Responses'
ParentShowHint = False
@@ -198,52 +198,52 @@ object MailCfgDlg: TMailCfgDlg
Caption = 'SMTP'
ImageIndex = 1
object TelnetPortLabel: TLabel
- Left = 7
- Top = 10
- Width = 85
- Height = 19
+ Left = 9
+ Top = 12
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Listening Port'
end
object DefaultUserLabel: TLabel
- Left = 7
- Top = 88
- Width = 85
- Height = 19
+ Left = 9
+ Top = 108
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Default User'
end
object MaxRecipientsLabel: TLabel
- Left = 7
- Top = 36
- Width = 85
- Height = 19
+ Left = 9
+ Top = 44
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Max Recipients'
end
object MaxMsgSizeLabel: TLabel
- Left = 7
- Top = 62
- Width = 85
- Height = 19
+ Left = 9
+ Top = 76
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Max Msg Size'
end
object SMTPPortEdit: TEdit
- Left = 92
- Top = 10
- Width = 39
- Height = 21
+ Left = 113
+ Top = 12
+ Width = 48
+ Height = 24
Hint = 'TCP port number for incoming SMTP connections (default=25)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object DebugHeadersCheckBox: TCheckBox
- Left = 150
- Top = 10
- Width = 119
- Height = 19
+ Left = 185
+ Top = 12
+ Width = 146
+ Height = 24
Hint = 'Log all received mail headers (for debugging)'
Caption = 'Log Headers'
ParentShowHint = False
@@ -251,10 +251,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 1
end
object DefaultUserEdit: TEdit
- Left = 92
- Top = 88
- Width = 150
- Height = 21
+ Left = 113
+ Top = 108
+ Width = 185
+ Height = 24
Hint =
'Mail for unknown users will go into this user'#39's mailbox (e.g. "s' +
'ysop")'
@@ -263,10 +263,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 3
end
object AllowRelayCheckBox: TCheckBox
- Left = 7
- Top = 116
- Width = 234
- Height = 19
+ Left = 9
+ Top = 143
+ Width = 288
+ Height = 23
Hint = 'Allow authenticated users to relay mail through this server'
Caption = 'Allow Authenticated Users to Relay Mail'
ParentShowHint = False
@@ -275,30 +275,30 @@ object MailCfgDlg: TMailCfgDlg
OnClick = AllowRelayCheckBoxClick
end
object MaxRecipientsEdit: TEdit
- Left = 92
- Top = 36
- Width = 39
- Height = 21
+ Left = 113
+ Top = 44
+ Width = 48
+ Height = 24
Hint = 'Maximum number of recipients for a single message'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object MaxMsgSizeEdit: TEdit
- Left = 92
- Top = 62
- Width = 65
- Height = 21
+ Left = 113
+ Top = 76
+ Width = 80
+ Height = 24
Hint = 'Maximum received message size (in bytes)'
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object AuthViaIpCheckBox: TCheckBox
- Left = 7
- Top = 142
- Width = 234
- Height = 19
+ Left = 9
+ Top = 175
+ Width = 288
+ Height = 23
Hint =
'Allow SMTP authentication via other protocols (e.g. POP3, Telnet' +
', etc) for relay'
@@ -307,33 +307,44 @@ object MailCfgDlg: TMailCfgDlg
ShowHint = True
TabOrder = 6
end
+ object NotifyCheckBox: TCheckBox
+ Left = 185
+ Top = 44
+ Width = 146
+ Height = 24
+ Hint = 'Notify local mail recipients of received e-mails'
+ Caption = 'Notify Recipients'
+ ParentShowHint = False
+ ShowHint = True
+ TabOrder = 7
+ end
end
object POP3TabSheet: TTabSheet
Caption = 'POP3'
ImageIndex = 2
object POP3PortLabel: TLabel
- Left = 7
- Top = 10
- Width = 83
- Height = 19
+ Left = 9
+ Top = 12
+ Width = 102
+ Height = 24
AutoSize = False
Caption = 'Listening Port'
end
object POP3PortEdit: TEdit
- Left = 92
- Top = 10
- Width = 39
- Height = 21
+ Left = 113
+ Top = 12
+ Width = 48
+ Height = 24
Hint = 'TCP port number for incoming POP3 connections (default=110)'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object POP3LogCheckBox: TCheckBox
- Left = 150
- Top = 10
- Width = 57
- Height = 19
+ Left = 185
+ Top = 12
+ Width = 70
+ Height = 24
Hint = 'Log all POP3 user activity'
Caption = 'Log'
ParentShowHint = False
@@ -341,10 +352,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 1
end
object POP3EnabledCheckBox: TCheckBox
- Left = 208
- Top = 10
- Width = 66
- Height = 19
+ Left = 256
+ Top = 12
+ Width = 81
+ Height = 24
Hint = 'Enable the POP3 server (requires restart of mail server)'
Caption = 'Enabled'
ParentShowHint = False
@@ -357,37 +368,37 @@ object MailCfgDlg: TMailCfgDlg
Caption = 'SendMail'
ImageIndex = 3
object RelayPortLabel: TLabel
- Left = 160
- Top = 140
- Width = 32
- Height = 21
+ Left = 197
+ Top = 172
+ Width = 39
+ Height = 26
Alignment = taRightJustify
AutoSize = False
Caption = 'Port'
end
object DeliveryAttemptsLabel: TLabel
- Left = 7
- Top = 36
- Width = 85
- Height = 19
+ Left = 9
+ Top = 44
+ Width = 104
+ Height = 24
AutoSize = False
Caption = 'Max Attempts'
end
object RescanFreqLabel: TLabel
- Left = 136
- Top = 36
- Width = 57
- Height = 19
+ Left = 167
+ Top = 44
+ Width = 71
+ Height = 24
Hint = 'Frequency (in seconds) of delivery attempts'
Alignment = taRightJustify
AutoSize = False
Caption = 'Frequency'
end
object DNSRadioButton: TRadioButton
- Left = 7
- Top = 62
- Width = 85
- Height = 21
+ Left = 9
+ Top = 76
+ Width = 104
+ Height = 26
Hint =
'Send mail directly to addressed mail server (requires DNS server' +
' access)'
@@ -400,9 +411,9 @@ object MailCfgDlg: TMailCfgDlg
OnClick = DNSRadioButtonClick
end
object DNSServerEdit: TEdit
- Left = 92
- Top = 62
- Width = 150
+ Left = 113
+ Top = 76
+ Width = 185
Height = 21
Hint = 'Host name or IP address of your ISP'#39's DNS server'
ParentShowHint = False
@@ -410,10 +421,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 4
end
object TcpDnsCheckBox: TCheckBox
- Left = 203
- Top = 88
- Width = 53
- Height = 19
+ Left = 250
+ Top = 108
+ Width = 65
+ Height = 24
Hint = 'Use TCP packets (instead of UDP) for DNS queries'
Caption = 'TCP'
ParentShowHint = False
@@ -421,10 +432,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 5
end
object RelayRadioButton: TRadioButton
- Left = 7
- Top = 114
- Width = 85
- Height = 21
+ Left = 9
+ Top = 140
+ Width = 104
+ Height = 26
Hint = 'Route all mail through an SMTP relay server'
Caption = 'Relay Server'
ParentShowHint = False
@@ -433,9 +444,9 @@ object MailCfgDlg: TMailCfgDlg
OnClick = DNSRadioButtonClick
end
object RelayServerEdit: TEdit
- Left = 92
- Top = 114
- Width = 150
+ Left = 113
+ Top = 140
+ Width = 185
Height = 21
Hint =
'Host name or IP address of external SMTP server (for relaying ma' +
@@ -445,9 +456,9 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 7
end
object RelayPortEdit: TEdit
- Left = 203
- Top = 140
- Width = 39
+ Left = 250
+ Top = 172
+ Width = 48
Height = 21
Hint = 'TCP port number for the SMTP relay server (default=25)'
ParentShowHint = False
@@ -455,9 +466,9 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 8
end
object DeliveryAttemptsEdit: TEdit
- Left = 92
- Top = 36
- Width = 39
+ Left = 113
+ Top = 44
+ Width = 48
Height = 21
Hint = 'Maximum number of delivery attempts'
ParentShowHint = False
@@ -465,9 +476,9 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 1
end
object RescanFreqEdit: TEdit
- Left = 203
- Top = 36
- Width = 39
+ Left = 250
+ Top = 44
+ Width = 48
Height = 21
Hint = 'Seconds between message base rescans'
ParentShowHint = False
@@ -475,10 +486,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 2
end
object SendMailCheckBox: TCheckBox
- Left = 7
- Top = 10
- Width = 66
- Height = 19
+ Left = 9
+ Top = 12
+ Width = 81
+ Height = 24
Hint = 'Enable the SendMail thread (requires restart of mail server)'
Caption = 'Enabled'
ParentShowHint = False
@@ -491,33 +502,33 @@ object MailCfgDlg: TMailCfgDlg
Caption = 'Sound'
ImageIndex = 4
object SMTPSoundLabel: TLabel
- Left = 7
- Top = 10
- Width = 82
- Height = 19
+ Left = 9
+ Top = 12
+ Width = 101
+ Height = 24
AutoSize = False
Caption = 'Receive Mail'
end
object POP3SoundLabel: TLabel
- Left = 7
- Top = 62
- Width = 82
- Height = 21
+ Left = 9
+ Top = 76
+ Width = 101
+ Height = 26
AutoSize = False
Caption = 'POP3 Login'
end
object OutboundSoundLabel: TLabel
- Left = 7
- Top = 36
- Width = 82
- Height = 19
+ Left = 9
+ Top = 44
+ Width = 101
+ Height = 24
AutoSize = False
Caption = 'Sending Mail'
end
object InboundSoundEdit: TEdit
- Left = 92
- Top = 10
- Width = 150
+ Left = 113
+ Top = 12
+ Width = 185
Height = 21
Hint = 'Sound file to play when inbound SMTP connections are accepted'
ParentShowHint = False
@@ -525,18 +536,18 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 0
end
object InboundSoundButton: TButton
- Left = 247
- Top = 10
- Width = 20
- Height = 21
+ Left = 304
+ Top = 12
+ Width = 25
+ Height = 26
Caption = '...'
TabOrder = 1
OnClick = InboundSoundButtonClick
end
object POP3SoundEdit: TEdit
- Left = 92
- Top = 62
- Width = 150
+ Left = 113
+ Top = 76
+ Width = 185
Height = 21
Hint = 'Sound file to play when accepting POP3 connections'
ParentShowHint = False
@@ -544,18 +555,18 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 4
end
object POP3SoundButton: TButton
- Left = 247
- Top = 62
- Width = 20
- Height = 21
+ Left = 304
+ Top = 76
+ Width = 25
+ Height = 26
Caption = '...'
TabOrder = 5
OnClick = POP3SoundButtonClick
end
object OutboundSoundEdit: TEdit
- Left = 92
- Top = 36
- Width = 150
+ Left = 113
+ Top = 44
+ Width = 185
Height = 21
Hint = 'Sound file to play when sending mail'
ParentShowHint = False
@@ -563,10 +574,10 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 2
end
object OutboundSoundButton: TButton
- Left = 247
- Top = 36
- Width = 20
- Height = 21
+ Left = 304
+ Top = 44
+ Width = 25
+ Height = 26
Caption = '...'
TabOrder = 3
OnClick = OutboundSoundButtonClick
@@ -578,52 +589,52 @@ object MailCfgDlg: TMailCfgDlg
ParentShowHint = False
ShowHint = True
object Label1: TLabel
- Left = 104
- Top = 85
- Width = 32
- Height = 13
+ Left = 128
+ Top = 105
+ Width = 41
+ Height = 16
Caption = 'Label1'
end
object DNSBLServersButton: TButton
- Left = 7
- Top = 7
- Width = 91
- Height = 21
+ Left = 9
+ Top = 9
+ Width = 112
+ Height = 25
Hint = 'DNS-based Blacklists'
Caption = 'Blacklists'
TabOrder = 0
OnClick = DNSBLServersButtonClick
end
object DNSBLGroupBox: TGroupBox
- Left = 7
- Top = 33
- Width = 260
- Height = 130
+ Left = 9
+ Top = 41
+ Width = 320
+ Height = 160
Caption = 'Mail from Blacklisted Servers:'
ParentShowHint = False
ShowHint = True
TabOrder = 1
object BLSubjectLabel: TLabel
- Left = 13
- Top = 75
- Width = 65
- Height = 21
+ Left = 16
+ Top = 92
+ Width = 80
+ Height = 26
AutoSize = False
Caption = 'Subject'
end
object BLHeaderLabel: TLabel
- Left = 13
- Top = 98
- Width = 65
- Height = 21
+ Left = 16
+ Top = 121
+ Width = 80
+ Height = 25
AutoSize = False
Caption = 'Header'
end
object BLRefuseRadioButton: TRadioButton
- Left = 13
- Top = 23
- Width = 124
- Height = 19
+ Left = 16
+ Top = 28
+ Width = 153
+ Height = 24
Hint = 'Refuse mail session with blacklisted servers'
Caption = 'Refuse Session'
ParentShowHint = False
@@ -632,10 +643,10 @@ object MailCfgDlg: TMailCfgDlg
OnClick = DNSBLRadioButtonClick
end
object BLIgnoreRadioButton: TRadioButton
- Left = 13
- Top = 46
- Width = 131
- Height = 20
+ Left = 16
+ Top = 57
+ Width = 161
+ Height = 24
Hint = 'Pretend to receive blacklisted mail'
Caption = 'Silently Ignore'
ParentShowHint = False
@@ -644,20 +655,20 @@ object MailCfgDlg: TMailCfgDlg
OnClick = DNSBLRadioButtonClick
end
object BLBadUserRadioButton: TRadioButton
- Left = 137
- Top = 23
- Width = 104
- Height = 19
+ Left = 169
+ Top = 28
+ Width = 128
+ Height = 24
Hint = 'Refuse mail address from blacklisted servers'
Caption = 'Refuse Mail'
TabOrder = 1
OnClick = DNSBLRadioButtonClick
end
object BLTagRadioButton: TRadioButton
- Left = 137
- Top = 46
- Width = 78
- Height = 20
+ Left = 169
+ Top = 57
+ Width = 96
+ Height = 24
Hint = 'Tag blacklisted mail with header and/or subject'
Caption = 'Tag with:'
ParentShowHint = False
@@ -666,9 +677,9 @@ object MailCfgDlg: TMailCfgDlg
OnClick = DNSBLRadioButtonClick
end
object BLSubjectEdit: TEdit
- Left = 85
- Top = 75
- Width = 151
+ Left = 105
+ Top = 92
+ Width = 185
Height = 24
Hint = 'Flag to add to subject of DNS-blacklisted mail'
ParentShowHint = False
@@ -676,9 +687,9 @@ object MailCfgDlg: TMailCfgDlg
TabOrder = 4
end
object BLHeaderEdit: TEdit
- Left = 85
- Top = 98
- Width = 151
+ Left = 105
+ Top = 121
+ Width = 185
Height = 24
Hint = 'Flag to add to subject of DNS-blacklisted mail'
ParentShowHint = False
@@ -687,20 +698,20 @@ object MailCfgDlg: TMailCfgDlg
end
end
object DNSBLExemptionsButton: TButton
- Left = 104
- Top = 7
- Width = 92
- Height = 21
+ Left = 128
+ Top = 9
+ Width = 113
+ Height = 25
Hint = 'Blacklist Exempted IP addresses'
Caption = 'Exempt IPs'
TabOrder = 2
OnClick = DNSBLExemptionsButtonClick
end
object BLDebugCheckBox: TCheckBox
- Left = 208
- Top = 7
- Width = 59
- Height = 21
+ Left = 256
+ Top = 9
+ Width = 73
+ Height = 25
Hint = 'Enable debug logging of DNSBL lookups'
Caption = 'Debug'
TabOrder = 3
diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.h b/src/sbbs3/ctrl/MailCfgDlgUnit.h
index 4fd0103c6c..7479c380bc 100644
--- a/src/sbbs3/ctrl/MailCfgDlgUnit.h
+++ b/src/sbbs3/ctrl/MailCfgDlgUnit.h
@@ -126,6 +126,7 @@ __published:
TLabel *MaxMsgSizeLabel;
TEdit *MaxMsgSizeEdit;
TCheckBox *AuthViaIpCheckBox;
+ TCheckBox *NotifyCheckBox;
void __fastcall InboundSoundButtonClick(TObject *Sender);
void __fastcall OutboundSoundButtonClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
--
GitLab