summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-08-17 00:25:31 -0400
committerKyle Meyer <kyle@kyleam.com>2020-09-01 22:57:19 -0400
commit1baf95772d553534837a6d72e20a62a7cf903c72 (patch)
treed4d0a4e36ed92549020130a9b07dfee70b1e201f
parentc5e41616648bbb7620b158d9408d98b92506ffc7 (diff)
downloademacs.d-1baf95772d553534837a6d72e20a62a7cf903c72.tar.gz
km/notmuch-show-at-point: Drop pointless regexp group
-rw-r--r--lisp/km-mail.el6
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))))