summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/km-gnus.el8
1 files changed, 7 insertions, 1 deletions
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