From 792109761be82f13189430448b007034b6e0c605 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 5 Oct 2007 21:07:48 +0000
Subject: [PATCH] oops

---
 lib/WebGUI/Workflow/Activity/GetCsMail.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Workflow/Activity/GetCsMail.pm b/lib/WebGUI/Workflow/Activity/GetCsMail.pm
index 15bb038d4..e6d48f123 100644
--- a/lib/WebGUI/Workflow/Activity/GetCsMail.pm
+++ b/lib/WebGUI/Workflow/Activity/GetCsMail.pm
@@ -180,8 +180,10 @@ sub execute {
 	while (my $message = $mail->getNextMessage) {
 		next unless (scalar(@{$message->{parts}})); # no content, skip it
 		my $from = $message->{from};
-		$from =~ s/<(\S+\@\S+)>/$1/;
-		my $user = WebGUI::User->newByEmail($self->session, $from); #instantiate the user by email
+        if ($from =~ /<(\S+\@\S+)>/) {
+            $from = $1;
+        }
+        my $user = WebGUI::User->newByEmail($self->session, $from); #instantiate the user by email
 		
 		unless (defined $user) { #if no user
 			unless ($postGroup eq 1 || $postGroup eq 7) { #reject mail if no registered email, unless post group is Visitors (1) or Everyone (7)