Patrick Rein uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-pre.195.mcz

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

Name: Network-pre.195
Author: pre
Time: 12 May 2017, 5:35:28.541874 pm
UUID: a8f3d074-fcfc-0749-b727-93d1a7f62304
Ancestors: Network-pre.194

Fixes a defect in the starttls implementation which caused the client to initiate starttls during an active starttls session

=============== Diff against Network-pre.194 ===============

Item was changed:
  ----- Method: POP3Client>>initiateSession (in category 'private protocol') -----
  initiateSession
  
  	self sendCommand: 'CAPA'.
  	self checkResponse.
  	
  	self parseCapabilities: self getMultilineResponse lines.
  	
+ 	(self tlsIsActive not and: [self serverSupportsStarttls] and: [self wantsStarttls])
- 	(self serverSupportsStarttls and: [self wantsStarttls])
  		ifTrue: [self starttls]!

Item was changed:
  ----- Method: ProtocolClient>>starttls (in category 'private protocol') -----
  starttls
  	Smalltalk at: #SqueakSSL ifAbsent:[self error: 'SqueakSSL is missing'].
  	
  	self sendCommand: self starttlsVerb.
  	self checkResponse.
  	self responseIsSuccess ifTrue: [
  		stream := SqueakSSL secureSocketStream on: stream socket.
+ 		stream sslConnectTo: self hostName.
+ 		self connectionInfo at: #tlsActive put: true].!
- 		stream sslConnectTo: self hostName].!

Item was added:
+ ----- Method: ProtocolClient>>tlsIsActive (in category 'testing') -----
+ tlsIsActive
+ 
+ 	^ self connectionInfo at: #tlsActive ifAbsent: [false]!

Item was changed:
  ----- Method: SMTPClient>>initiateSession (in category 'private protocol') -----
  initiateSession
  	"EHLO <SP> <domain> <CRLF>"
  
  	self sendCommand: (self useHelo ifTrue:['HELO '] ifFalse: ['EHLO ']) , self localHostName.
  	self checkResponse.
  	
  	self parseCapabilities: (self lastResponse lines allButFirst 
  			collect: [:l | self valueOfResponseLine: l]).
  
+ 	(self tlsIsActive not and: [self serverSupportsStarttls] and: [self wantsStarttls])
- 	(self serverSupportsStarttls and: [self wantsStarttls])
  		ifTrue: [self starttls]!