diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-08-17 00:25:31 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-09-01 22:57:19 -0400 |
| commit | 1baf95772d553534837a6d72e20a62a7cf903c72 (patch) | |
| tree | d4d0a4e36ed92549020130a9b07dfee70b1e201f /lisp | |
| parent | c5e41616648bbb7620b158d9408d98b92506ffc7 (diff) | |
| download | emacs.d-1baf95772d553534837a6d72e20a62a7cf903c72.tar.gz | |
km/notmuch-show-at-point: Drop pointless regexp group
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-mail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el index 6662ffd..5b9b26d 100644 --- a/lisp/km-mail.el +++ b/lisp/km-mail.el @@ -98,12 +98,12 @@ (let ((id (save-excursion (skip-syntax-backward "^\\s-") (and (looking-at - (rx (group (zero-or-one "<")) + (rx (zero-or-one "<") (group (zero-or-one (or "id:" "thread:"))) (group (one-or-more (any "-" "_" "." "@" "/" alnum))))) - (concat (let ((prefix (match-string 2))) + (concat (let ((prefix (match-string 1))) (if (string= prefix "") "id:" prefix)) - (match-string-no-properties 3)))))) + (match-string-no-properties 2)))))) (if id (notmuch-show id) (call-interactively #'notmuch-show)))) |