about summary refs log tree commit homepage
path: root/lib/PublicInbox/Search.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/Search.pm')
-rw-r--r--lib/PublicInbox/Search.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/lib/PublicInbox/Search.pm b/lib/PublicInbox/Search.pm
index b9f283fb..c28401bc 100644
--- a/lib/PublicInbox/Search.pm
+++ b/lib/PublicInbox/Search.pm
@@ -492,14 +492,21 @@ sub merge_threads {
 # normalize subjects so they are suitable as pathnames for URLs
 sub subject_path {
         my $subj = pop;
-
-        $subj =~ s/\A\s+//;
-        $subj =~ s/\s+\z//;
-        $subj =~ s/$REPLY_RE//igo; # remove reply prefix
+        $subj = subject_normalized($subj);
         $subj =~ s![^a-zA-Z0-9_\.~/\-]+!_!g;
         lc($subj);
 }
 
+sub subject_normalized {
+        my $subj = pop;
+        $subj =~ s/\A\s+//s; # no leading space
+        $subj =~ s/\s+\z//s; # no trailing space
+        $subj =~ s/\s+/ /gs; # no redundant spaces
+        $subj =~ s/\.+\z//; # no trailing '.'
+        $subj =~ s/$REPLY_RE//igo; # remove reply prefix
+        $subj;
+}
+
 sub do_cat_mail {
         my ($git, $blob) = @_;
         my $mime = eval {