Rules => {
        * => sub {
                 my ($filter,$element) = @_;
                 return $element->{content} =~ m/\S/ ? 1 : 0
             }
    }

##</code><code>##


    Rules => {
        font => sub {
                     my ($filter,$element) = @_;
                     my $attr = $element->{attr};
                     delete $attr->{size} if $attr->{size} && $attr->{size} eq 1;
                     delete $attr->{face} if $attr->{face} && lc($attr->{face}) eq 'verdana';
                     return keys %$attr ? 1 : 0;
                }
    }

##</code><code>##

    Rules => {
        a => sub {
                     my ($filter,$element) = @_;
                     my $content = $element->{content};
                     my ($pre,$post) = ('','');
                     if ($content=~s{^\s*<br />}{}) {
                         $pre = '<br />';
                     }
                     if ($content=~s{<br />\s*$}{}) {
                         $post = '<br />';
                     }
                     if ($pre || $post) {
                         $element->{literal} = 
                              $pre.
                              '<a ' . $self->_hss_join_attribs( $element{attr} ) . '>'
                              . $content 
                              . '</a>'
                              . $post;
                     }
                     return 1;
                }
    }