diff options
| author | jao <jao@gnu.org> | 2022-02-28 19:03:04 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-02-28 19:03:04 +0000 |
| commit | 9c1becb12896ee1cc30131eb5e8bc1ac57f2ace0 (patch) | |
| tree | b725fb23c38f885b7d78409149d4161103ce94f7 /attic | |
| parent | b1c4831a16a45621dc813aa80aa0c294536cd556 (diff) | |
| download | elibs-9c1becb12896ee1cc30131eb5e8bc1ac57f2ace0.tar.gz elibs-9c1becb12896ee1cc30131eb5e8bc1ac57f2ace0.tar.bz2 | |
jao-gnus-consult-notmuch to open consult-notmuch's results in gnus
Diffstat (limited to 'attic')
| -rw-r--r-- | attic/misc.org | 20 |
1 files changed, 0 insertions, 20 deletions
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) |