--- HTML.pm.dist	Wed Apr 28 19:16:17 2004
+++ HTML.pm	Fri May 14 11:39:51 2004
@@ -383,6 +383,8 @@
   if ($tag eq "font" && exists $attr->{size}) {
     $self->{html}{big_font} = 1 if (($attr->{size} =~ /^\s*(\d+)/ && $1 > 3) ||
 			    ($attr->{size} =~ /\+(\d+)/ && $1 >= 1));
+    $self->{html}{small_font} = 1 if (($attr->{size} =~ /^\s*(\d+)/ && $1 < 2) ||
+			    ($attr->{size} =~ /\-(\d+)/ && $1 >= 1));
   }
   if ($tag eq "font" && exists $attr->{color}) {
     my $bg = $self->{bgcolor_color}[-1];
@@ -441,6 +443,13 @@
       my $type = $2;
 
       $self->{html}{big_font} = 1 if (lc($type) eq "pt" && $size > 12);
+      $self->{html}{pt1_font} = 1 if ($size == 1);
+      $self->{html}{small_font} = 1 if ($size > 1 && $size < 4);
+    } elsif ($attr->{style} =~ /font(?:-size)?:\s*(\d+(?:\.\d*)?|\.\d+)/i) {
+      my $size = $1;
+
+      $self->{html}{pt1_font} = 1 if ($size == 1);
+      $self->{html}{small_font} = 1 if ($size > 1 && $size < 4);
     }
   }
   if ($tag eq "img" && exists $attr->{width} && exists $attr->{height}) {
@@ -523,6 +532,13 @@
       my $type = $2;
 
       $self->{html}{big_font} = 1 if (lc($type) eq "pt" && $size > 12);
+      $self->{html}{pt1_font} = 1 if ($size == 1);
+      $self->{html}{small_font} = 1 if ($size > 1 && $size < 4);
+    } elsif ($text =~ /font(?:-size)?:\s*(\d+(?:\.\d*)?|\.\d+)/i) {
+      my $size = $1;
+
+      $self->{html}{pt1_font} = 1 if ($size == 1);
+      $self->{html}{small_font} = 1 if ($size > 1 && $size < 4);
     }
     return;
   }
@@ -571,6 +587,13 @@
       my $type = $2;
 
       $self->{html}{big_font} = 1 if (lc($type) eq "pt" && $size > 12);
+      $self->{html}{pt1_font} = 1 if ($size == 1);
+      $self->{html}{small_font} = 1 if ($size > 1 && $size < 4);
+    } elsif ($text =~ /font(?:-size)?:\s*(\d+(?:\.\d*)?|\.\d+)/i) {
+      my $size = $1;
+
+      $self->{html}{pt1_font} = 1 if ($size == 1);
+      $self->{html}{small_font} = 1 if ($size > 1 && $size < 4);
     }
   }