diff options
| -rw-r--r-- | lib/PublicInbox/Filter/SubjectTag.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/PublicInbox/Filter/SubjectTag.pm b/lib/PublicInbox/Filter/SubjectTag.pm index 1d281425..7735a94a 100644 --- a/lib/PublicInbox/Filter/SubjectTag.pm +++ b/lib/PublicInbox/Filter/SubjectTag.pm @@ -19,8 +19,10 @@ sub new { sub scrub { my ($self, $mime) = @_; my $subj = $mime->header('Subject'); - $subj =~ s/$self->{tag_re}/$1/; # $1 is "Re: " - $mime->header_str_set('Subject', $subj); + if (defined $subj) { + $subj =~ s/$self->{tag_re}/$1/; # $1 is "Re: " + $mime->header_str_set('Subject', $subj); + } $self->ACCEPT($mime); } |