Implemented one more special markup item.

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 3536f32d6e03b6e58c9a182065be81120df15550..19f5ee4b1aa79ca9afead98a94bcf89eca08604b 100644 (file)
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -107,6 +107,14 @@ sub do_cmd_var{ &use_italics(@_); }
 sub do_cmd_dfn{ &use_italics(@_); }    # make an index entry?
 sub do_cmd_emph{ &use_italics(@_); }
 
+sub do_cmd_newsgroup{
+    local($_) = @_;
+    s/$next_pair_pr_rx//o;
+    my $newsgroup = $2;
+    my $stuff = "<a href=\"news:$newsgroup\"><font face=sans-serif>"
+      . "$newsgroup</font></a>";
+    $stuff . $_;
+}
 
 sub do_cmd_envvar{
     local($_) = @_;