From 2093049f453547ae78e7f786eaaf0220627f26fe Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 26 Mar 2023 10:55:54 -0700 Subject: fix killing last article in group, use C-M-k to kill subthreads --- .emacs.d/init.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 4cc7b3cf..3981984a 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -3778,9 +3778,19 @@ mutt's review view, after exiting EDITOR." gnus-article-delete-part)) (advice-add fn :override #'ignore)) +(defun spw/gnus-summary-kill-thread (orig-fun &optional unmark) + (save-excursion + (funcall orig-fun unmark)) + (unless unmark + (gnus-summary-next-unread-article))) +(advice-add 'gnus-summary-kill-thread :around #'spw/gnus-summary-kill-thread) + +(defun spw/gnus-summary-kill-whole-thread (&optional unmark) + (interactive "P") + (gnus-summary-top-thread) + (gnus-summary-kill-thread unmark)) (with-eval-after-load 'gnus-sum - (define-key gnus-summary-mode-map "k" "ToTkg") - (define-key gnus-summary-mode-map "\M-k" "Tkg")) + (define-key gnus-summary-mode-map "k" #'spw/gnus-summary-kill-whole-thread)) ;;; Following bindings go under 'v' because that is reserved to Gnus users. -- cgit v1.2.3