diff --git a/rc/bin/ap b/rc/bin/ap
deleted file mode 100755
index 93462e821..000000000
--- a/rc/bin/ap
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/bin/rc
-#
-#	get AP news headline list or the given story
-#
-
-wire='http://www.newsday.com/news/nationworld/wire'
-if ( ~ $#* 0 )
-	hget $wire | #tee /tmp/ap.$pid |
-		sed -n '/<h1>AP Top News/,/AP News Wire/p' |
-		htmlfmt -a -w 100 |
-		sed -n '
-			/^• / {
-				N
-				s/^• / /g
-				s/\n/ /g
-				s/\[\/news\/nationworld\/wire\//|/
-				s/sns-ap-//
-				s/\.story.*$//
-				p
-		}' |
-		awk -F '|' '
-			{
-			s = "";
-			for (i = 1; i < NF; i++)
-				s = s " " $i;
-			printf("ap %-40s # %s\n", $NF, s);
-		}'
-
-if not
-	hget $wire/sns-ap-^$1^.story |
-		htmlfmt |
-		sed '
-			1,/^AP Top News$/d
-			/^\* __$/,$d
-			/^Subscribe to Newsday home delivery/,$d
-		' 
diff --git a/sys/man/1/ap b/sys/man/1/ap
deleted file mode 100644
index 1b717f35f..000000000
--- a/sys/man/1/ap
+++ /dev/null
@@ -1,16 +0,0 @@
-.TH AP 1
-.SH NAME
-ap \- fetch Associated Press news articles
-.SH SYNOPSIS
-.B ap
-[
-.BI article-name
-]
-.SH DESCRIPTION
-.I ap
-fetches Associated Press news articles from http://www.newsday.com.
-Without any arguments it provides a two column list of article keys and descriptions.
-When invoked with an article key it fetches that article.
-.PP
-.SH SOURCE
-.B /rc/bin/ap