From 8ca17d26dca4ffc4d9850c791ad2733718f796ce Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 19 Oct 2003 05:52:38 +0000
Subject: [PATCH] Remove dependency on 'prog-mutt' From username.

---
 perlmail-accept | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/perlmail-accept b/perlmail-accept
index 7771802..c647a8e 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -584,15 +584,10 @@ my($prefix,$profile)=@_;
 			if $From!~/$alternates/si;
 	for my $for (reverse Received_for()) {
 		$for=~s/:.*$//;	# strip IP address here
-		if ($Fromobj->user() ne "prog-mutt") {
-			next if lc($for) eq lc($From);
-			}
-		else {
-			my $forobj=parseone $for;
-			if ($forobj && $forobj->host()) {
-				# it is 'for' our primary address
-				next if lc($forobj->host()) eq lc($Fromobj->host());	# or 'return'? shouldn't matter
-				}
+		my $forobj=parseone $for;
+		if ($forobj && $forobj->host()) {
+			# it is 'for' our primary address
+			next if lc($forobj->host()) eq lc($Fromobj->host());	# or 'return'? shouldn't matter
 			}
 		next if !$alternates_host{lc $for} && $for!~/$alternatesre/si;
 		store "$prefix\L$for",($profile || []);
-- 
1.8.3.1