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	--- 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