diff options
| -rw-r--r-- | init.el | 2 | ||||
| -rw-r--r-- | lisp/km-mail.el | 6 |
2 files changed, 8 insertions, 0 deletions
@@ -2019,6 +2019,8 @@ '(:name "today" :query "date:today.." :key ".")) (define-key notmuch-show-mode-map (kbd "C-c m") 'km/notmuch-show-prefix-map) + (define-key km/notmuch-show-prefix-map "p" + #'km/notmuch-show-open-github-patch) (define-key km/notmuch-show-prefix-map "i" #'km/notmuch-show-copy-message-id-as-kill)) diff --git a/lisp/km-mail.el b/lisp/km-mail.el index 7bc462f..c23ff26 100644 --- a/lisp/km-mail.el +++ b/lisp/km-mail.el @@ -124,6 +124,12 @@ argument FOLLOW, follow link instead of copying it." (km/gnus-summary-set-current-article) (km/open-github-patch gnus-original-article-buffer)) +(defun km/notmuch-show-open-github-patch () + "Open patch from GitHub email." + (interactive) + (with-current-notmuch-show-message + (km/mail-open-github-patch (current-buffer)))) + (defun km/gnus-summary-catchup (&optional no-next) "Mark all articles as read. Don't ask for confirmation. With prefix argument NO-NEXT, exit |