{
    $qpsmtpd = $DB->get('qpsmtpd');
    return unless $qpsmtpd;
    return unless $qpsmtpd->prop('RBLList');

    my %obsolete = map { $_ => 1} qw(
       combined.njabl.org
       list.dsbl.org
       multihop.dsbl.org
       dnsbl.ahbl.org
    );

    @rbl = grep { ! $obsolete{$_} } split /[,:]/, $qpsmtpd->prop('RBLList');
    $qpsmtpd->set_prop('RBLList', join ':', @rbl);
}

