diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-03-28 23:51:51 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-28 23:51:51 -0400 |
| commit | 23a6abef8c26704cce184477d2503b3f61148d68 (patch) | |
| tree | aa252e44dbaafffcdc499f3a788f93eaefc1b83b /lisp/km-mail.el | |
| parent | 585b59c4839896e9d513604b7f1ef315e40ebfec (diff) | |
| download | emacs.d-23a6abef8c26704cce184477d2503b3f61148d68.tar.gz | |
Add notmuch-show-at-point command
Diffstat (limited to 'lisp/km-mail.el')
| -rw-r--r-- | lisp/km-mail.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el index 345d2bb..b25934c 100644 --- a/lisp/km-mail.el +++ b/lisp/km-mail.el @@ -57,6 +57,21 @@ (mark-whole-buffer) (call-interactively #'notmuch-search-archive-thread)) +;;;###autoload +(defun km/notmuch-show-at-point () + "Call `notmuch-show' with message or thread ID at point." + (interactive) + (let ((id (save-excursion + (skip-syntax-backward "^\\s-") + (and (looking-at + (rx (group (zero-or-one (or "id:" "thread:"))) + (one-or-more (any "-" "_" "." "@" "/" alnum)))) + (concat (and (string= (match-string 1) "") "id:") + (match-string-no-properties 0)))))) + (if id + (notmuch-show id) + (call-interactively #'notmuch-show)))) + ;;; Mail sync |