The Trunk: Network-pre.206.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Network-pre.206.mcz

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

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

Name: Network-pre.206
Author: pre
Time: 10 November 2017, 4:37:27.243812 pm
UUID: b250fbfd-7a6e-b540-bc80-101c7a85a8af
Ancestors: Network-topa.205

Adds convenience methods to access and remove attachments in mail messages and the bcc and cc fields.

=============== Diff against Network-topa.205 ===============

Item was added:
+ ----- Method: MIMEDocument>>attachmentFileName (in category 'accessing') -----
+ attachmentFileName
+
+ ^ (self fieldNamed: 'content-disposition' ifAbsent: [^ ''])
+ parameterAt: 'filename' ifAbsent: ['']  !

Item was added:
+ ----- Method: MailMessage>>attachments (in category 'multipart') -----
+ attachments
+
+ ^ self body parts select: [:p |
+ (p fieldNamed: 'content-disposition' ifAbsent: [nil])
+ ifNil: [false]
+ ifNotNilDo: [:headerValue | headerValue mainValue = 'attachment' ]]!

Item was added:
+ ----- Method: MailMessage>>bcc (in category 'accessing') -----
+ bcc
+
+ ^ self fieldsNamed: 'bcc' separatedBy: ', '!

Item was added:
+ ----- Method: MailMessage>>bcc: (in category 'accessing') -----
+ bcc: commaSeperatedListOfEmailAddresses
+
+ ^ self setField: 'bcc' toString: commaSeperatedListOfEmailAddresses!

Item was changed:
+ ----- Method: MailMessage>>cc (in category 'accessing') -----
- ----- Method: MailMessage>>cc (in category 'access') -----
  cc
 
+ ^ self fieldsNamed: 'cc' separatedBy: ', '!
- ^self fieldsNamed: 'cc' separatedBy: ', '!

Item was added:
+ ----- Method: MailMessage>>cc: (in category 'accessing') -----
+ cc: commaSeperatedListOfEmailAddresses
+
+ ^ self setField: 'cc' toString: commaSeperatedListOfEmailAddresses!

Item was added:
+ ----- Method: MailMessage>>removeAttachment: (in category 'multipart') -----
+ removeAttachment: aMIMEDocument
+
+ ^ self body parts remove: aMIMEDocument ifAbsent: []!