/* QLM - Quick List Mention */

address spot
options results

signal on Syntax
signal on failure
options failat 20



parse arg area,LID,iment

'gotoarea NAME ' Area
if rc=0 then do
	'MessageList'

	selected = 'spot/quicksearch'(area,iment)
	selected = 'spot/addtolist'(lid)

	if selected >0 then do
		'setflags unread unreplied'
		'excludeflag all'
	end

end

exit selected

syntax:
failure:

signal off failure
signal off syntax

parse source . . . program

program = subword(program,1,words(program)-2)

call 'spot/impmaster/imperror'(program,rc,sigl,sourceline(sigl))

exit
