tell application "Mailsmith 1.5"
	activate
	set s to ""
	set retry to false
	try
		set the_list to get selection as list
		set m to item 1 of the_list
		if class of m is not message then set retry to true
	on error
		set retry to true
	end try
	if retry then
		set retry to false
		try
			set the_list to message of window 1 as list
		on error
			set retry to true
		end try
	end if
	if retry then set the_list to {}
	
	repeat with i from 1 to count items of the_list
		try
			set subj to subject of item i of the_list as string
			set s to text returned of ¬
				(display dialog "Subject:" default answer subj)
			set subject of item i of the_list to s
		on error
			beep
		end try
	end repeat
end tell