From 1a7af3959b56a503692d15329e1ff52d947fc02c Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Wed, 1 Apr 1998 22:44:56 +0000
Subject: Implemented one more special markup item.

---
 Doc/perl/python.perl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 3536f32..19f5ee4 100644
--- 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($_) = @_;
-- 
cgit v0.12