From 39e6a7cbb0251d047fc12e22447c441fccf8e875 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Wed, 14 Sep 2022 07:20:43 -0500 Subject: [PATCH] Let me debbugs with notmuch --- config-ext.org | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) diff --git a/config-ext.org b/config-ext.org index cbab476..2752205 100644 --- a/config-ext.org +++ b/config-ext.org @@ -366,6 +366,36 @@ #'run-offlineimap t)) #+end_src +** debbugs +#+begin_src emacs-lisp + (use-package debbugs) + + (defun my/debbugs-gnu-select-report () + "Select the report on the current line." + (interactive) + (when (mouse-event-p last-input-event) (mouse-set-point last-input-event)) + ;; We open the report messages. + (let* ((status (debbugs-gnu-current-status)) + (id (alist-get 'id status)) + (merged (alist-get 'mergedwith status))) + (setq merged (if (listp merged) merged (list merged))) + (cond + ((not id) + (message "No bug report on the current line")) + ((eq debbugs-gnu-mail-backend 'rmail) + (debbugs-gnu-read-emacs-bug-with-rmail id status merged)) + ((eq debbugs-gnu-mail-backend 'gnus) + (debbugs-gnu-read-emacs-bug-with-gnus id status merged)) + ((eq debbugs-gnu-mail-backend 'notmuch) + (notmuch-tree (concat "tag:bug-gnu-emacs " (format "subject:\"bug#%s\"" id)))) + (t (error "No valid mail backend specified"))))) + + (setq debbugs-gnu-mail-backend 'notmuch) + + (advice-add #'debbugs-gnu-select-report + :override + #'my/debbugs-gnu-select-report) +#+end_src ** erc #+begin_src emacs-lisp (use-package erc)