From 89f34da9a510bf87293721942d688b1425bb9cf7 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Fri, 25 Apr 2014 07:49:14 +0000
Subject: cgi: eliminate dead/redundant HTML escaping code

---
 lib/PublicInbox/Hval.pm | 1 -
 lib/PublicInbox/View.pm | 5 +----
 2 files changed, 1 insertion(+), 5 deletions(-)

(limited to 'lib')

diff --git a/lib/PublicInbox/Hval.pm b/lib/PublicInbox/Hval.pm
index 26a2d0bb..47b41a58 100644
--- a/lib/PublicInbox/Hval.pm
+++ b/lib/PublicInbox/Hval.pm
@@ -12,7 +12,6 @@ use URI::Escape qw(uri_escape);
 
 my $enc_utf8 = find_encoding('utf8');
 my $enc_ascii = find_encoding('us-ascii');
-my $enc_mime = find_encoding('MIME-Header');
 
 sub new {
 	my ($class, $raw) = @_;
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index ecd49156..811e4703 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -11,6 +11,7 @@ use Encode::MIME::Header;
 use Email::MIME::ContentType qw/parse_content_type/;
 use constant MAX_INLINE_QUOTED => 5;
 use constant MAX_TRUNC_LEN => 72;
+*ascii_html = *PublicInbox::Hval::ascii_html;
 
 my $enc_utf8 = find_encoding('utf8');
 my $enc_ascii = find_encoding('us-ascii');
@@ -136,10 +137,6 @@ sub add_text_body_full {
 	$s;
 }
 
-sub ascii_html {
-	$enc_ascii->encode(escapeHTML($_[0]), Encode::HTMLCREF);
-}
-
 sub headers_to_html_header {
 	my ($simple, $full_pfx) = @_;
 
-- 
cgit v1.2.3-24-ge0c7