From: short <>
Date: Sun, 19 Oct 2003 05:52:38 +0000 (+0000)
Subject: Remove dependency on 'prog-mutt' From username.
X-Git-Tag: bp_lace~33
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=8ca17d26dca4ffc4d9850c791ad2733718f796ce

Remove dependency on 'prog-mutt' From username.
---

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 || []);