diff options
Diffstat (limited to 'lisp/init-gnus.el')
| -rw-r--r-- | lisp/init-gnus.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index 9f2e132..fd02df2 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -149,12 +149,6 @@ A new buffer with the patch contents is opened in another window." (org-gnus-follow-link group message-id)) (message "Couldn't get relevant infos for switching to Gnus.")))) -(defadvice org-store-link (around km/maybe-use-notmuch-link activate) - "Use notmuch links for local mail." - (save-window-excursion - (km/gnus-goto-message-in-notmuch) - ad-do-it)) - (defun km/gnus-goto-message-in-notmuch () "Show message in notmuch." (interactive) @@ -166,6 +160,8 @@ A new buffer with the patch contents is opened in another window." (message-id (org-remove-angle-brackets (mail-header-id header)))) (notmuch-show (concat "id:" message-id))))) +(add-hook 'km/org-store-link-hook 'km/gnus-goto-message-in-notmuch) + (define-key notmuch-show-mode-map (kbd "C-c C-c") 'km/notmuch-goto-message-in-gnus) (add-hook 'gnus-group-mode-hook 'km/notmuch-shortcut) |