[squeak-dev] The Inbox: System-ct.1240.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jul 14 22:04:59 UTC 2021


A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ct.1240.mcz

==================== Summary ====================

Name: System-ct.1240
Author: ct
Time: 15 July 2021, 12:04:53.78757 am
UUID: 624f6c2a-2072-d94c-8dd0-90beb93b74d4
Ancestors: System-mt.1239

MailSender: Allows for empty passwords. Also improves multilingual support. Thanks to David Stes for the pointer!

=============== Diff against System-mt.1239 ===============

Item was changed:
  ----- Method: MailSender class>>setSmtpServer (in category 'settings') -----
  setSmtpServer
  	"Set the SMTP server used to send outgoing messages via"
  	SmtpServer ifNil: [SmtpServer := ''].
  	SmtpServer := UIManager default
+ 		request: 'What is your mail server for outgoing mail?' translated
- 		request: 'What is your mail server for outgoing mail?'
  		initialAnswer: SmtpServer.
  !

Item was changed:
  ----- 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?' translated
- 		request: 'What is your mail server port for outgoing mail?'
  		initialAnswer: SmtpServerPort asString) asNumber.
  !

Item was changed:
  ----- 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 translated
- 			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
  
  	(UIManager default
+ 			request: 'What is your user name on the SMTP server?' translated
- 			request: 'What is your user name on the SMTP server?' withCRs
  			initialAnswer: (UserName ifNil: [UserName := '']))
  		ifNotNil: [:answer | UserName := answer]!

Item was changed:
  ----- Method: MailSender class>>setUserPassword (in category 'settings') -----
  setUserPassword
  
  	UserPassword ifNil: [UserPassword := ''].
  	(UIManager default
+ 			requestPassword: 'What is your server password?' translated)
- 			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' translated].
- 	SmtpServer isEmpty ifTrue: [ self error: 'no SMTP server specified' ].
  
  	^SmtpServer!

Item was changed:
  ----- 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' translated].
- 	SmtpServerPort isNil ifTrue: [ self error: 'no SMTP server port specified' ].
  
  	^SmtpServerPort!

Item was changed:
  ----- 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' translated].
- 	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."
  
  	self isUserNameSet ifFalse: [self setUserName].
  
+ 	UserName isEmpty ifTrue: [self error: 'no user name specified' translated].
- 	UserName isEmpty ifTrue: [ self error: 'no user name specified' ].
  
  	^UserName!

Item was changed:
  ----- Method: MailSender class>>userPassword (in category 'accessing') -----
  userPassword
  
  	self isUserPasswordSet ifFalse: [self setUserPassword].
  
+ 	"UserPassword isEmpty ifTrue: [self error: 'no user name specified' translated]."
- 	UserPassword isEmpty ifTrue: [ self error: 'no user name specified' ].
  
  	^ UserPassword!

Item was added:
+ ----- Method: Preferences class>>allowEtoyUserCustomEvents (in category 'standard queries') -----
+ allowEtoyUserCustomEvents
+ 	^ self
+ 		valueOfFlag: #allowEtoyUserCustomEvents
+ 		ifAbsent: [false]!



More information about the Squeak-dev mailing list