diff options
Diffstat (limited to '.emacs.d/init.el')
-rw-r--r-- | .emacs.d/init.el | 14 |
1 files 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. |