diff options
Diffstat (limited to 'consult.org')
| -rw-r--r-- | consult.org | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/consult.org b/consult.org index bcd5aac..8254ea4 100644 --- a/consult.org +++ b/consult.org @@ -109,16 +109,6 @@ #+begin_src emacs-lisp (jao-load-path "consult-recoll") - (defun jao-recoll-open-mail (fname) - (let ((group (jao-notmuch-file-to-group fname)) - (id (with-temp-buffer - (insert-file fname) - (goto-char (point-min)) - (message-mode) - (not-modified) - (message-fetch-field "Message-ID")))) - (when (and group id) (org-gnus-follow-link group id)))) - (defun jao-recoll-format (title url mtype) (let* ((u (replace-regexp-in-string "/home/jao/" "" url)) (u (replace-regexp-in-string "\\(doc\\|org/doc\\|var/mail\\)/" "" u))) @@ -130,7 +120,7 @@ (use-package consult-recoll :init (setq consult-recoll-open-fns '(("application/pdf" . jao-open-doc) - ("message/rfc822" . jao-recoll-open-mail)) + ("message/rfc822" . jao-org-links-open-mail)) consult-recoll-format-candidate #'jao-recoll-format) :bind (("C-c R" . #'consult-recoll))) |