80 |
$labels = $1; |
$labels = $1; |
81 |
|
|
82 |
# Strip the integer indicating whether the header is pruned |
# Strip the integer indicating whether the header is pruned |
83 |
$labels =~ s/^(\d+)[,\s]*//; |
$labels =~ s/^(\d+)[,\s]*//; |
84 |
$pruned = $1; |
$pruned = $1; |
85 |
|
|
86 |
s/(?:((?:.+\n)+)\n*)?\*\*\* EOOH \*\*\*\n+// || goto malformatted; |
s/(?:((?:.+\n)+)\n*)?\*\*\* EOOH \*\*\*\n+// || goto malformatted; |
113 |
$labels =~ s/[,\s]+$//; |
$labels =~ s/[,\s]+$//; |
114 |
# Now collapse extra commas and whitespace in the remaining label string |
# Now collapse extra commas and whitespace in the remaining label string |
115 |
$labels =~ s/[,\s]+/, /g; |
$labels =~ s/[,\s]+/, /g; |
116 |
|
|
117 |
foreach my $rmail_header qw(summary-line x-coding-system) { |
foreach my $rmail_header qw(summary-line x-coding-system) { |
118 |
$full_header =~ s/(^|\n)$rmail_header:.*\n/$1/i; |
$full_header =~ s/(^|\n)$rmail_header:.*\n/$1/i; |
119 |
} |
} |