From 7c05d8901c7279bb7b72d81c827901ee4abed429 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 1 Sep 2015 00:06:13 -0400 Subject: org: Don't switch to notmuch for storing gnus links --- lisp/init-mail.el | 2 -- lisp/init-org.el | 15 +-------------- 2 files changed, 1 insertion(+), 16 deletions(-) (limited to 'lisp') diff --git a/lisp/init-mail.el b/lisp/init-mail.el index 3aa14ba..8d74081 100644 --- a/lisp/init-mail.el +++ b/lisp/init-mail.el @@ -235,8 +235,6 @@ paragraph." (add-to-list 'notmuch-saved-searches '(:name "today" :query "date:today.." :key ".")) -(add-hook 'km/org-store-link-hook 'km/gnus-goto-message-in-notmuch) - (defun km/notmuch-file-to-group (file) "Calculate the Gnus group name from the given file name." (let ((group (file-name-directory (directory-file-name (file-name-directory file))))) diff --git a/lisp/init-org.el b/lisp/init-org.el index 339bfd3..7cdb27f 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -597,19 +597,6 @@ global value. A numeric prefix sets MAXLEVEL (defaults to 2)." "Search for PMID at `km/org-pmid-search-url'." (browse-url (format km/org-pmid-search-url path))) -(defvar km/org-store-link-hook nil - "Hook run before by `km/org-store-link-hook'. -These are run within a `save-window-excursion' block.") - -(defun km/org-store-link () - "Run `km/org-store-link-hook' before `org-store-link'. -The hook functions and `org-store-link' are called within a -`save-window-excursion' block." - (interactive) - (save-window-excursion - (run-hooks 'km/org-store-link-hook) - (call-interactively 'org-store-link))) - (defun km/org-link-dired-jump () "Open Dired for directory of file link at point." (interactive) @@ -639,7 +626,7 @@ beginning of the link." slurped))))) (define-key km/org-prefix-map "d" 'km/org-link-dired-jump) -(define-key km/global-org-map "l" 'km/org-store-link) +(define-key km/global-org-map "l" 'org-store-link) (define-key km/org-prefix-map "." (defhydra hydra-org-link-edit () -- cgit v1.2.3