Patrick Rein uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-pre.1042.mcz
==================== Summary ====================
Name: System-pre.1042 Author: pre Time: 5 September 2018, 4:56:50.998822 pm UUID: 842afa63-0116-f84c-bb10-e82e86728dfb Ancestors: System-eem.1041
Fixes a bug with the new MailSender probably due to an incomplete changeset. The missing attributes have already been used but were not part of the protocol of MailSender.
=============== Diff against System-eem.1041 ===============
Item was changed: AppRegistry subclass: #MailSender instanceVariableNames: '' + classVariableNames: 'SmtpServer SmtpServerPort UserEmail UserName UserPassword' - classVariableNames: 'SmtpServer UserName' poolDictionaries: '' category: 'System-Applications'!
Item was added: + ----- Method: MailSender class>>isSmtpServerPortSet (in category 'testing') ----- + isSmtpServerPortSet + ^ SmtpServerPort notNil and: [SmtpServerPort isNumber] + !
Item was added: + ----- Method: MailSender class>>isUserEmailSet (in category 'testing') ----- + isUserEmailSet + ^ UserEmail notNil and: [UserEmail notEmpty] + !
Item was added: + ----- Method: MailSender class>>isUserNameSet (in category 'testing') ----- + isUserNameSet + ^ UserName notNil and: [UserName notEmpty] + !
Item was added: + ----- Method: MailSender class>>isUserPasswordSet (in category 'testing') ----- + isUserPasswordSet + ^ UserPassword notNil and: [UserPassword notEmpty] + !
Item was added: + ----- Method: MailSender class>>reset (in category 'initialize-release') ----- + reset + + UserName := UserPassword := UserEmail := SmtpServer := SmtpServerPort := nil.!
Item was added: + ----- Method: MailSender class>>setSmtpServerPort (in category 'settings') ----- + setSmtpServerPort + "Set the SMTP server port used to send outgoing messages via" + SmtpServerPort ifNil: [SmtpServerPort := 25]. + SmtpServerPort := (UIManager default + request: 'What is your mail server port for outgoing mail?' + initialAnswer: SmtpServerPort asString) asNumber. + !
Item was added: + ----- Method: MailSender class>>setUserEmail (in category 'settings') ----- + setUserEmail + "Change the user's email for use in composing messages." + + (UIManager default + request: 'What is your email address?(This is the address other people will reply to you)' withCRs + initialAnswer: (UserEmail ifNil: [UserEmail := ''])) + ifNotNil: [:answer | UserEmail := answer]!
Item was changed: ----- Method: MailSender class>>setUserName (in category 'settings') ----- setUserName - "Change the user's email name for use in composing messages."
(UIManager default + request: 'What is your user name on the SMTP server?' withCRs - request: 'What is your email address?(This is the address other people will reply to you)' withCRs initialAnswer: (UserName ifNil: [UserName := ''])) ifNotNil: [:answer | UserName := answer]!
Item was added: + ----- Method: MailSender class>>setUserPassword (in category 'settings') ----- + setUserPassword + + UserPassword ifNil: [UserPassword := '']. + (UIManager default + requestPassword: 'What is your server passwort?' withCRs) + ifNotNil: [:answer | UserPassword := answer]!
Item was changed: ----- Method: MailSender class>>smtpServer (in category 'accessing') ----- smtpServer "Answer the server for sending email"
+ self isSmtpServerSet ifFalse: [self setSmtpServer]. + SmtpServer isEmpty ifTrue: [ self error: 'no SMTP server specified' ]. - self isSmtpServerSet - ifFalse: [self setSmtpServer]. - SmtpServer isEmpty ifTrue: [ - self error: 'no SMTP server specified' ].
^SmtpServer!
Item was added: + ----- Method: MailSender class>>smtpServerPort (in category 'accessing') ----- + smtpServerPort + "Answer the server for sending email" + + self isSmtpServerPortSet ifFalse: [self setSmtpServerPort]. + SmtpServerPort isNil ifTrue: [ self error: 'no SMTP server port specified' ]. + + ^SmtpServerPort!
Item was added: + ----- Method: MailSender class>>userEmail (in category 'accessing') ----- + userEmail + "Answer the user name to be used for sending out messages." + + self isUserEmailSet ifFalse: [self setUserEmail]. + + UserEmail isEmpty ifTrue: [ self error: 'no user email specified' ]. + + ^UserEmail!
Item was changed: ----- Method: MailSender class>>userName (in category 'accessing') ----- userName + "Answer the user name to be used for sending out messages." - "Answer the user name to be used in composing messages."
+ self isUserNameSet ifFalse: [self setUserName]. - (UserName isNil or: [UserName isEmpty]) - ifTrue: [self setUserName].
UserName isEmpty ifTrue: [ self error: 'no user name specified' ].
^UserName!
Item was added: + ----- Method: MailSender class>>userPassword (in category 'accessing') ----- + userPassword + + self isUserPasswordSet ifFalse: [self setUserPassword]. + + UserPassword isEmpty ifTrue: [ self error: 'no user name specified' ]. + + ^ UserPassword!