'From Squeak2.9alpha of 12 June 2000 [latest update: #3396] on 3 February 2001 at 12:31:01 pm'!

!Celeste methodsFor: 'table of contents pane' stamp: 'di 2/3/2001 12:30'!
removeAll
	"Remove all messages from the current category."
	mailDB removeAll: currentMessages fromCategory: currentCategory.
	currentMsgID _ nil.
	currentMessages _ #().
	currentTOC _ #().
	self initializeTocLists.
	self changed: #tocEntryList.
	self changed: #tocEntry.
	self changed: #messageText
! !