--- sdf-2.001.orig/perllib/sdf/topod.pl	Wed Apr 28 17:39:11 1999

+++ sdf-2.001/perllib/sdf/topod.pl	Sun Feb  3 02:02:12 2002

@@ -450,7 +450,21 @@

     # For headings, map the tag to a command

     if ($tag =~ /^head/) {

-        return "=$tag $text\n";

+        if ($SDF_USER'var{'MAN_CONVENTIONS'}) {

+            if ($tag =~ /^head1/ && !$seen_name) {

+                $seen_name = 1;

+                return "=$tag NAME\n\n$text\n";

+            }

+            elsif ($tag =~ /^head2/) {

+                return "=head1 \U$text\E\n";

+            }

+            else {

+                return "=$tag $text\n";

+            }

+        }

+        else {

+            return "=$tag $text\n";

+        }

     }

     # Otherwise, format as a plain paragraph