accessing
splitByWeeks

	| response spans |
	response := OrderedDictionary new.
	self timeSpansByWeeks doWithIndex: [ :span :i |
		response
			at: span asDatesString
			put: (self select: [ :message | span includes: (message created asDateAndTime)])
	].
	^ response