accessing
oldestOf: userId

	self messages ifNil: [ ^ nil ].
	self messages ifEmpty: [ ^ nil ].
	^ ((self select: [ :tweet | tweet authorId = userId ])
	 	select: [ :tweet | tweet created = (((self select: [ :each | each authorId = userId ]) collect: [ :each | each created ]) asSortedCollection first)]) first