Merge remote-tracking branch 'origin/search'

[public-inbox.git] / lib / PublicInbox / Thread.pm

diff --git a/lib/PublicInbox/Thread.pm b/lib/PublicInbox/Thread.pm
index a2553da70ab4bab16d5bceaf927ec436a84840e5..58efb8dc5872ed01fc0a3824654c200d4010f26d 100644 (file)
--- a/lib/PublicInbox/Thread.pm
+++ b/lib/PublicInbox/Thread.pm
@@ -7,7 +7,24 @@ package PublicInbox::Thread;
 use strict;
 use warnings;
 use base qw(Mail::Thread);
-sub _container_class { 'PublicInbox::Thread::Container' }
+
+if ($Mail::Thread::VERSION <= 2.55) {
+       eval q(sub _container_class { 'PublicInbox::Thread::Container' });
+}
+
+sub sort_ts {
+       sort {
+               (eval { $a->topmost->message->header('X-PI-TS') } || 0) <=>
+               (eval { $b->topmost->message->header('X-PI-TS') } || 0)
+       } @_;
+}
+
+sub rsort_ts {
+       sort {
+               (eval { $b->topmost->message->header('X-PI-TS') } || 0) <=>
+               (eval { $a->topmost->message->header('X-PI-TS') } || 0)
+       } @_;
+}
 
 package PublicInbox::Thread::Container;
 use strict;