thresholding an image

I `have code

[cA,cH,cV,cD] = dwt2(X,'Haar')

my image is

http://www.sendspace.com/file/d9rh3j

in this i want to remove non text edges using threshold in all subbands ,please help