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

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

Name: Network-ct.244
Author: ct
Time: 14 November 2020, 7:46:21.777394 pm
UUID: a88f27af-c0a0-c340-9d0d-60c432537f47
Ancestors: Network-mt.243

Fixes FileUrl >> #retrieveContents which did not work for certain contentTypes because of an intermediary invalid content specification. See NetworkTests-ct.61 (inbox).

=============== Diff against Network-mt.243 ===============

Item was added:
+ ----- Method: MIMEDocument class>>contentType: (in category 'private') -----
+ contentType: aString
+ 
+ 	^ self new
+ 		contentTypeHeaderValue: (MIMEHeaderValue fromMIMEHeader: aString);
+ 		yourself!

Item was changed:
  ----- Method: MIMEDocument class>>contentType:content: (in category 'instance creation') -----
  contentType: aString content: content
  	"create a MIMEObject with the given content-type and content"
  	"MIMEDocument contentType: 'text/plain' content: 'This is a test'"
  	
  	| ans |
+ 	ans := self contentType: aString.
  	
- 	ans := self new.
- 
- 	ans contentTypeHeaderValue: (MIMEHeaderValue fromMIMEHeader: aString).
- 
  	(ans isPlaintext or: [ans isHTML])
  		ifTrue:  [ans content: (self tryToDecodeBody: content as: ans charset)]
  		ifFalse: [ans isMultipart
  					ifTrue: [| separator |
  						separator := ans attachmentSeparator asLowercase.
  						separator ifNil: [self error: 'Bad attachment separater'].
  
  						separator := '--', separator withoutTrailingBlanks.
  						ans addAllParts: (self parseParts: content withSeparator:separator).]
  					ifFalse: [ans content: content]].
+ 	
+ 	^ ans!
- 		
- 	^ ans
- !

Item was changed:
  ----- Method: MIMELocalFileDocument class>>contentType:contentStream: (in category 'instance creation') -----
  contentType: aString contentStream: aStream
+ 
+ 	^ (self contentType: aString)
+ 		contentStream: aStream;
+ 		yourself!
- 	^(self contentType: aString content: nil) contentStream: aStream!