20 |
$REG{M_prefix_list} = qr/[(\[]([A-Za-z0-9._-]+)[\x20:-](\d+)[)\]]/; |
$REG{M_prefix_list} = qr/[(\[]([A-Za-z0-9._-]+)[\x20:-](\d+)[)\]]/; |
21 |
$REG{M_was_subject} = qr/\([Ww][Aa][Ss][:\x09\x20]$REG{FWS}(.+?)$REG{FWS}\)$REG{FWS}$/; |
$REG{M_was_subject} = qr/\([Ww][Aa][Ss][:\x09\x20]$REG{FWS}(.+?)$REG{FWS}\)$REG{FWS}$/; |
22 |
$REG{message_from_subject} = qr/^$REG{FWS}(?i)Message from \S+$REG{FWS}$/; |
$REG{message_from_subject} = qr/^$REG{FWS}(?i)Message from \S+$REG{FWS}$/; |
23 |
if (defined $^V) { |
if ($^V gt v5.7.2) { |
24 |
$REG{prefix_re} = qr/(?i)Re|Sv|Odp |
$REG{prefix_re} = qr/(?i)Re|Sv|Odp |
25 |
|\x{8FD4} ## Hen |
|\x{8FD4} ## Hen |
26 |
/x; |
/x; |