accessing
newest
	self messages ifNil: [ ^ nil ].
	self messages ifNilEmpty: [ ^ nil ].
	self pinned created > self messages second created  
		ifTrue: [ ^ self pinned ]
		ifFalse: [ ^ self messages second  ]