accessing
pinned
	| first second |
	first := self messages first.
	(first metadata at: 'pinned') = 1
		ifFalse: [ ^ first ].
	second := self messages second.
	^ first created