###################################################################
###  Ruleset 90 -- try domain part of mailertable entry 	###
###################################################################

S90
R$* <$- . $+ > $*	$: $1$2 < $(mailertable .$3 $@ $1$2 $@ $2 $) > $4
R$* <$~[ : $+ > $*		$>95 < $2 : $3 > $4	check -- resolved?
R$* < . $+ > $* 		$@ $>90 $1 . <$2> $3	no -- strip & try again
R$* < $* > $*		$: < $(mailertable . $@ $1$2 $) > $3	try "."
R< $~[ : $+ > $*		$>95 < $1 : $2 > $3	"." found?
R< $* > $*			$@ $2			no mailertable match