From 9c1becb12896ee1cc30131eb5e8bc1ac57f2ace0 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 28 Feb 2022 19:03:04 +0000 Subject: jao-gnus-consult-notmuch to open consult-notmuch's results in gnus --- attic/misc.org | 20 -------------------- 1 file changed, 20 deletions(-) (limited to 'attic') diff --git a/attic/misc.org b/attic/misc.org index be5ae99..74667ad 100644 --- a/attic/misc.org +++ b/attic/misc.org @@ -1133,26 +1133,6 @@ ;; (spam-initialize) #+end_src -*** notmuch -> gnus - #+begin_src emacs-lisp - (defun jao-notmuch-goto-message-in-gnus () - "Open a summary buffer containing the current notmuch article." - (interactive) - (let ((group (jao-maildir-file-to-group (notmuch-show-get-filename) - mail-source-directory)) - (message-id (replace-regexp-in-string "^id:" - "" - (notmuch-show-get-message-id)))) - (if (and group message-id) - (org-gnus-follow-link group message-id) - (message "Couldn't get relevant infos for switching to Gnus.")))) - - (defalias 'jao-open-gnus-frame 'jao-afio--goto-mail) - - (eval-after-load "notmuch-show" - '(define-key notmuch-show-mode-map (kbd "C-c C-c") - #'jao-notmuch-goto-message-in-gnus)) - #+end_src * snippets #+begin_src emacs-lisp (defun jao-minibuffer--text-with-padding (text) -- cgit v1.2.3