qpsmtpd/sme7/qpsmtpd-0.29-no_brackets.patch

--- lib/Qpsmtpd/SMTP.pm.no_brackets     Thu May 19 13:30:23 2005
+++ lib/Qpsmtpd/SMTP.pm Thu May 19 13:47:40 2005
@@ -239,8 +239,9 @@
     my ($from) = ($from_parameter =~ m/^from:\s*(<[^>]*>)/i)[0];
 
     # support addresses without <> ... maybe we shouldn't?
-    ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
-      unless $from;
+    # no, we shouldn't.
+    # ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
+    #   unless $from;
 
     $self->log(LOGWARN, "from email address : [$from]");
 
1	slords	1.1	--- lib/Qpsmtpd/SMTP.pm.no_brackets Thu May 19 13:30:23 2005
2			+++ lib/Qpsmtpd/SMTP.pm Thu May 19 13:47:40 2005
3			@@ -239,8 +239,9 @@
4			my ($from) = ($from_parameter =~ m/^from:\s(<[^>]>)/i)[0];
5
6			# support addresses without <> ... maybe we shouldn't?
7			- ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
8			- unless $from;
9			+ # no, we shouldn't.
10			+ # ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
11			+ # unless $from;
12
13			$self->log(LOGWARN, "from email address : [$from]");
14