From 67addf39c391d9a657128e7936aee431e8605d54 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 28 Feb 2020 20:55:19 -0500
Subject: km/gnus--last-message-link: Rewrite regexp with rx

---
 lisp/km-gnus.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/km-gnus.el b/lisp/km-gnus.el
index 5873144..b932561 100644
--- a/lisp/km-gnus.el
+++ b/lisp/km-gnus.el
@@ -63,7 +63,13 @@ is off."
 (defun km/gnus--gmane-link (&optional perma)
   (with-current-buffer gnus-original-article-buffer
     (-when-let* ((blink (message-field-value "Archived-At"))
-                 (link (or (and (string-match "\\`<\\(.*\\)>\\'" blink)
+                 (link (or (and (string-match
+                                 (rx string-start
+                                     "<"
+                                     (group (one-or-more (not (any ">"))))
+                                     ">"
+                                     string-end)
+                                 blink)
                                 (match-string 1 blink))
                            blink)))
       (if perma
-- 
cgit v1.2.3