From 595dde9002608bf18a84b22dafd5fe779c500421 Mon Sep 17 00:00:00 2001
From: short <>
Date: Mon, 14 Oct 2002 11:30:20 +0000
Subject: [PATCH] &Received_for: host: Parse also: [10.14.83.0] as hostname

---
 perlmail-accept | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perlmail-accept b/perlmail-accept
index ab934b0..9cea4a8 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -638,7 +638,8 @@ sub Received_for
 		my($for)=($hdr=~/\bfor\s+\<?(\S+)\>?\b/);
 		return $for if !wantarray();
 		push @r,$for if $for;
-		my($from,$fromaddr)=($hdr=~/\bfrom\s+(\S+)\b.*?\[((?:\d{1,3}\.){3}\d{1,3})\]/);
+		my($from,$fromaddr)=($hdr=~/\bfrom\s+(?:(\S+)\b.*?)??\[((?:\d{1,3}\.){3}\d{1,3})\]/);
+		$from=$fromaddr if !defined $from;
 		push @r,"$from:$fromaddr" if $from;
 		}
 	return @r;
-- 
1.8.3.1