blob: ba703cb25419932a11c4b1e6b6330fa6043f2d48 (
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
|
package Sietima::Role::NoSpoof; use Moo::Role; use Sietima::Policy; use Email::Address; use namespace::clean;
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;
|