qpsmtpd-plugins/sme9/qpsmtpd-address-in-bcc.patch

diff -Nur qpsmtpd-plugins-openfusion-20050429/plugins/bcc qpsmtpd-plugins-openfusion-20050429_bz8990/plugins/bcc
--- qpsmtpd-plugins-openfusion-20050429/plugins/bcc     2005-03-29 07:02:39.000000000 +0200
+++ qpsmtpd-plugins-openfusion-20050429_bz8990/plugins/bcc      2015-08-06 15:15:36.302538784 +0200
@@ -75,7 +75,7 @@
 
 =cut
 
-use Mail::Address;
+use Qpsmtpd::Address;
 
 my $VERSION = 0.04;
 
@@ -189,7 +189,7 @@
     unless ($transaction->notes("bcc_ignore_rcpt") || 0) < $transaction->recipients;
 
   if ($self->{_bcc_all}) {
-    my $rcpt = (Mail::Address->parse($self->{_bcc_all}))[0];
+    my $rcpt = (Qpsmtpd::Address->parse($self->{_bcc_all}))[0];
     $transaction->add_recipient($rcpt); 
     $transaction->header->add('X-Copied-To', $self->{_bcc_all}) 
       if $self->{_bcc_mode} eq 'cc';
@@ -197,7 +197,7 @@
   }
 
   if ($self->{_bcc_outgoing} && exists $ENV{RELAYCLIENT}) {
-    my $rcpt = (Mail::Address->parse($self->{_bcc_outgoing}))[0];
+    my $rcpt = (Qpsmtpd::Address->parse($self->{_bcc_outgoing}))[0];
     $transaction->add_recipient($rcpt); 
     $transaction->header->add('X-Copied-To', $self->{_bcc_outgoing}) 
       if $self->{_bcc_mode} eq 'cc';
@@ -205,7 +205,7 @@
   }
 
   if ($transaction->notes('bcc_incoming')) {
-    my $rcpt = (Mail::Address->parse($self->{_bcc_incoming}))[0];
+    my $rcpt = (Qpsmtpd::Address->parse($self->{_bcc_incoming}))[0];
     $transaction->add_recipient($rcpt);
     $transaction->header->add('X-Copied-To', $self->{_bcc_incoming}) 
       if $self->{_bcc_mode} eq 'cc';
1	diff -Nur qpsmtpd-plugins-openfusion-20050429/plugins/bcc qpsmtpd-plugins-openfusion-20050429_bz8990/plugins/bcc
2	--- qpsmtpd-plugins-openfusion-20050429/plugins/bcc 2005-03-29 07:02:39.000000000 +0200
3	+++ qpsmtpd-plugins-openfusion-20050429_bz8990/plugins/bcc 2015-08-06 15:15:36.302538784 +0200
4	@@ -75,7 +75,7 @@
5
6	=cut
7
8	-use Mail::Address;
9	+use Qpsmtpd::Address;
10
11	my $VERSION = 0.04;
12
13	@@ -189,7 +189,7 @@
14	unless ($transaction->notes("bcc_ignore_rcpt") \|\| 0) < $transaction->recipients;
15
16	if ($self->{_bcc_all}) {
17	- my $rcpt = (Mail::Address->parse($self->{_bcc_all}))[0];
18	+ my $rcpt = (Qpsmtpd::Address->parse($self->{_bcc_all}))[0];
19	$transaction->add_recipient($rcpt);
20	$transaction->header->add('X-Copied-To', $self->{_bcc_all})
21	if $self->{_bcc_mode} eq 'cc';
22	@@ -197,7 +197,7 @@
23	}
24
25	if ($self->{_bcc_outgoing} && exists $ENV{RELAYCLIENT}) {
26	- my $rcpt = (Mail::Address->parse($self->{_bcc_outgoing}))[0];
27	+ my $rcpt = (Qpsmtpd::Address->parse($self->{_bcc_outgoing}))[0];
28	$transaction->add_recipient($rcpt);
29	$transaction->header->add('X-Copied-To', $self->{_bcc_outgoing})
30	if $self->{_bcc_mode} eq 'cc';
31	@@ -205,7 +205,7 @@
32	}
33
34	if ($transaction->notes('bcc_incoming')) {
35	- my $rcpt = (Mail::Address->parse($self->{_bcc_incoming}))[0];
36	+ my $rcpt = (Qpsmtpd::Address->parse($self->{_bcc_incoming}))[0];
37	$transaction->add_recipient($rcpt);
38	$transaction->header->add('X-Copied-To', $self->{_bcc_incoming})
39	if $self->{_bcc_mode} eq 'cc';