diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.cpp b/src/sbbs3/ctrl/MailCfgDlgUnit.cpp index 37dad84c6128a7287a7b6ecd1f918ecce7509f71..cbca03de7c073fd2c219460561a14a328ea3ff6d 100644 --- a/src/sbbs3/ctrl/MailCfgDlgUnit.cpp +++ b/src/sbbs3/ctrl/MailCfgDlgUnit.cpp @@ -104,6 +104,7 @@ void __fastcall TMailCfgDlg::FormShow(TObject *Sender) DeliveryAttemptsEdit->Text =AnsiString(MainForm->mail_startup.max_delivery_attempts); RescanFreqEdit->Text=AnsiString(MainForm->mail_startup.rescan_frequency); + DefaultUserEdit->Text=AnsiString(MainForm->mail_startup.default_user); DebugTXCheckBox->Checked=MainForm->mail_startup.options &MAIL_OPT_DEBUG_TX; @@ -168,6 +169,9 @@ void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender) =DeliveryAttemptsEdit->Text.ToIntDef(10); MainForm->mail_startup.rescan_frequency=RescanFreqEdit->Text.ToIntDef(300); + sprintf(MainForm->mail_startup.default_user,"%.*s" + ,sizeof(MainForm->mail_startup.default_user)-1 + ,DefaultUserEdit->Text.c_str()); sprintf(MainForm->mail_startup.dns_server,"%.*s" ,sizeof(MainForm->mail_startup.dns_server)-1 ,DNSServerEdit->Text.c_str()); diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm index 237def854c1aa6e39b9e4e53798380be46e32381..4a2f990282bf5d30935ff045f3b19c1facb34900 100644 --- a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm +++ b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm @@ -1,6 +1,6 @@ object MailCfgDlg: TMailCfgDlg - Left = 501 - Top = 303 + Left = 635 + Top = 312 BorderStyle = bsDialog Caption = 'Mail Server Configuration' ClientHeight = 303 @@ -164,22 +164,30 @@ object MailCfgDlg: TMailCfgDlg ImageIndex = 1 object SpamFilterLabel: TLabel Left = 9 - Top = 44 + Top = 76 Width = 75 - Height = 16 + Height = 24 Caption = 'Spam Filters' end object TelnetPortLabel: TLabel Left = 9 Top = 12 Width = 104 - Height = 26 + Height = 24 AutoSize = False Caption = 'Listening Port' end + object DefaultUserLabel: TLabel + Left = 9 + Top = 44 + Width = 104 + Height = 24 + AutoSize = False + Caption = 'Default User' + end object RBLCheckBox: TCheckBox Left = 113 - Top = 44 + Top = 76 Width = 57 Height = 24 Hint = 'Use Realtime Blackhole List (RBL) Spam Filter' @@ -190,7 +198,7 @@ object MailCfgDlg: TMailCfgDlg end object RSSCheckBox: TCheckBox Left = 185 - Top = 44 + Top = 76 Width = 56 Height = 24 Hint = 'Use Relay Spam Stopper (RSS) Spam Filter' @@ -201,7 +209,7 @@ object MailCfgDlg: TMailCfgDlg end object DULCheckBox: TCheckBox Left = 256 - Top = 44 + Top = 76 Width = 57 Height = 24 Hint = 'Use Dail-up User List (DUL) Spam Filter' @@ -235,7 +243,7 @@ object MailCfgDlg: TMailCfgDlg end object DebugHeadersCheckBox: TCheckBox Left = 185 - Top = 76 + Top = 108 Width = 146 Height = 26 Hint = 'Log all received mail headers (for debugging)' @@ -244,6 +252,18 @@ object MailCfgDlg: TMailCfgDlg ShowHint = True TabOrder = 5 end + object DefaultUserEdit: TEdit + Left = 113 + Top = 44 + Width = 185 + Height = 24 + Hint = + 'Mail for unknown users will go into this user'#39's mailbox (e.g. "s' + + 'ysop")' + ParentShowHint = False + ShowHint = True + TabOrder = 6 + end end object POP3TabSheet: TTabSheet Caption = 'POP3' @@ -252,7 +272,7 @@ object MailCfgDlg: TMailCfgDlg Left = 9 Top = 12 Width = 102 - Height = 26 + Height = 24 AutoSize = False Caption = 'Listening Port' end diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.h b/src/sbbs3/ctrl/MailCfgDlgUnit.h index 43dfef9b8970a1f054289561920da68c534cae60..b340990c19dd918a647923b7cdd8f7d6759db4ba 100644 --- a/src/sbbs3/ctrl/MailCfgDlgUnit.h +++ b/src/sbbs3/ctrl/MailCfgDlgUnit.h @@ -106,6 +106,8 @@ __published: TEdit *OutboundSoundEdit; TButton *OutboundSoundButton; TCheckBox *SendMailCheckBox; + TLabel *DefaultUserLabel; + TEdit *DefaultUserEdit; void __fastcall InboundSoundButtonClick(TObject *Sender); void __fastcall OutboundSoundButtonClick(TObject *Sender); void __fastcall FormShow(TObject *Sender);