diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-09-01 00:06:13 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-09-01 00:06:13 -0400 |
commit | 7c05d8901c7279bb7b72d81c827901ee4abed429 (patch) | |
tree | a4ea0c0d1bcb1d7b2dd63f7e4aefb919aa6f5000 | |
parent | 4ff6da203669a3d47658d40fefb13c7ec45cf763 (diff) | |
download | emacs.d-7c05d8901c7279bb7b72d81c827901ee4abed429.tar.gz |
org: Don't switch to notmuch for storing gnus links
-rw-r--r-- | lisp/init-mail.el | 2 | ||||
-rw-r--r-- | lisp/init-org.el | 15 |
2 files changed, 1 insertions, 16 deletions
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 () |