1 |
vip-ire |
1.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'; |