diff options
| -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 |