1 files changed, 0 insertions, 41 deletions
diff --git a/mail/ricochet/files/patch-ricochet b/mail/ricochet/files/patch-ricochet
deleted file mode 100644
index 328cbabbcaf3..000000000000
--- a/mail/ricochet/files/patch-ricochet
+++ /dev/null
@@ -1,41 +0,0 @@
---- ricochet.orig	Tue Jun 24 22:40:18 2003
-+++ ricochet	Wed Oct  8 06:42:08 2003
-@@ -566,15 +566,14 @@
-     my ( $domain ) = @_;
-     $ua = new LWP::UserAgent;
-     $ua->agent("Ricochet/0.1 " . $ua->agent);
--    my $req = new HTTP::Request POST => 'http://www.abuse.net/lookup.phtml'; 
--    $req->content_type('application/x-www-form-urlencoded');
--    $req->content("DOMAIN=$domain");
-+    my $req = new HTTP::Request GET => "http://www.abuse.net/lookup.phtml?DOMAIN=$domain";
-+    $ua->timeout(20);
-     my $res = $ua->request($req);
- 
-    if ($res->is_success) {
-         my $content = $res->content;
-         return undef if $content =~ /no information for this domain/;
--        my @matches = $content =~ /(\S+\@\S+)\s*<BR>/ig; 
-+	my @matches = $content =~ /<tt>(\S+\@\S+)<\/tt>/g;
-         return \@matches;
-    } else {
-         return undef;
-@@ -607,13 +606,17 @@
- 
- sub initialize { 
-     my $self = shift; 
--    my $rc = "$ENV{RICOCHET}" || "$ENV{HOME}/.ricochet"; $rc .= "/ricochetrc"; 
-+    my $rc = "$ENV{RICOCHET}" || -d "$ENV{HOME}/.ricochet" ? "$ENV{HOME}/.ricochet" : "%%PREFIX%%/share/ricochet";
-+    $rc .= "/ricochetrc"; 
-     Carp::croak "** Ricochet configuration file $rc doesn't exist. Aborting.\n" unless -e $rc; 
-     open (RC, $rc); 
-     grep { 
-         chomp; 
-         s/#.*$//; 
--        my ($field, $value) = split /:/, $_, 2; $value =~ s/\s//g; $field =~ s/\s//g; 
-+	my ($field, $value) = split /:/, $_, 2;
-+	$value =~ s/^\s+//;
-+	$value =~ s/\s+$//;
-+	$field =~ s/\s//g;
-         $self->{$field} = $value unless $field ne "SENDMAIL" && defined $self->{$field}; 
-     } (<RC>); 
-     close RC;