Christoph Thiede uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1255.mcz

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

Name: System-ct.1255
Author: ct
Time: 27 November 2021, 8:53:55.970306 pm
UUID: a35e96f7-0507-3042-aaff-e79400904e49
Ancestors: System-mt.1254, System-ct.1253

Fixes the ancestry again (merges System-ct.1253). Sorry for the noise!

=============== Diff against System-mt.1254 ===============

Item was changed:
  ----- Method: MailSender class>>isUserNameSet (in category 'testing') -----
  isUserNameSet
+ 	^ UserName notNil!
- 	^ UserName notNil and: [UserName notEmpty]
- !

Item was changed:
  ----- Method: MailSender class>>isUserPasswordSet (in category 'testing') -----
  isUserPasswordSet
+ 	^ UserPassword notNil!
- 	^ UserPassword notNil and: [UserPassword notEmpty]
- !

Item was changed:
  ----- Method: MailSender class>>setUserName (in category 'settings') -----
  setUserName
  
  	(UIManager default
  			request: 'What is your user name on the SMTP server?' withCRs
+ 			initialAnswer: (UserName ifNil: ['']))
- 			initialAnswer: (UserName ifNil: [UserName := '']))
  		ifNotNil: [:answer | UserName := answer]!

Item was changed:
  ----- Method: MailSender class>>userName (in category 'accessing') -----
  userName
+ 	"Answer the user name to be used for sending out messages. Leave empty if authentication not required."
- 	"Answer the user name to be used for sending out messages."
  
+ 	self isUserNameSet ifNil: [self setUserName].
- 	self isUserNameSet ifFalse: [self setUserName].
- 
- 	UserName isEmpty ifTrue: [ self error: 'no user name specified' ].
- 
  	^UserName!

Item was changed:
  ----- Method: MailSender class>>userPassword (in category 'accessing') -----
  userPassword
+ 	"Answer the user password to be used for sending out messages. Leave empty if authentication not required."
  
+ 	self isUserPasswordSet ifNil: [self setUserPassword].
- 	self isUserPasswordSet ifFalse: [self setUserPassword].
- 
- 	UserPassword isEmpty ifTrue: [ self error: 'no user name specified' ].
- 
  	^ UserPassword!