From f2dd23b937d0baf787b74b2084d657cda32eb19e Mon Sep 17 00:00:00 2001
From: Anton Khirnov <anton@khirnov.net>
Date: Thu, 3 Jun 2021 11:35:36 +0200
Subject: Add a simple email message-id match.

---
 reselect | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/reselect b/reselect
index f3d2240..92d5581 100644
--- a/reselect
+++ b/reselect
@@ -14,6 +14,8 @@ my $re_url =
 
 my $re_git_hash = qr{\b[0-9a-f]{7,40}\b}x;
 
+my $re_message_id = qr{<\S+?@\S+?>}x;
+
 sub find_matches {
     my ($pattern, $text, $rowmap) = @_;
 
@@ -74,6 +76,8 @@ sub on_action {
         $pattern = $re_url;
     } elsif ($cmd eq 'git_hash') {
         $pattern = $re_git_hash;
+    } elsif ($cmd eq 'message_id') {
+        $pattern = $re_message_id;
     } else {
         return;
     }
-- 
cgit v1.2.3