summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-02-28 20:55:19 -0500
committerKyle Meyer <kyle@kyleam.com>2020-04-16 23:48:44 -0400
commit67addf39c391d9a657128e7936aee431e8605d54 (patch)
treeec6d701dc003cd316349a2d770411c446b6d7847
parente38878ec38c7ea0af7c8ffc8390afb6bfd81a61a (diff)
downloademacs.d-67addf39c391d9a657128e7936aee431e8605d54.tar.gz
km/gnus--last-message-link: Rewrite regexp with rx
-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