diff options
author | Kyle Meyer <kyle@kyleam.com> | 2020-02-28 20:55:19 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-04-16 23:48:44 -0400 |
commit | 67addf39c391d9a657128e7936aee431e8605d54 (patch) | |
tree | ec6d701dc003cd316349a2d770411c446b6d7847 | |
parent | e38878ec38c7ea0af7c8ffc8390afb6bfd81a61a (diff) | |
download | emacs.d-67addf39c391d9a657128e7936aee431e8605d54.tar.gz |
km/gnus--last-message-link: Rewrite regexp with rx
-rw-r--r-- | lisp/km-gnus.el | 8 |
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 |