blob: 88efdc7e109fece8fd4e702042b9d948b9bc466f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
package Sietima::Role::NoSpoof; use Moo::Role; use Sietima::Policy; use Email::Address; use namespace::clean; our $VERSION = '1.1.1';
with 'Sietima::Role::WithPostAddress'; around munge_mail => sub ($orig,$self,$incoming_mail) { my $sender = $self->post_address->address; my ($from) = Email::Address->parse($incoming_mail->header_str('From')); $from->address($sender); $incoming_mail->header_str_set( From => $from, ); return $self->$orig($incoming_mail); }; 1; __END__
|