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