From e467d26031230bbe731b5731428d3eaba0bc8e9d Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 10 Aug 2016 14:09:39 +0200
Subject: Make deleting messages in Gnus easier

---
 emacs/.emacs.d/init.org | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'emacs')

diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org
index 903bdff..9652940 100644
--- a/emacs/.emacs.d/init.org
+++ b/emacs/.emacs.d/init.org
@@ -586,6 +586,28 @@ To start off, first I need to enable lexical binding.
        (setq sendmail-program "/usr/bin/msmtp"))
    #+END_SRC
 
+   Tell Gnus I'm not a novice anymore. One of the features of Gnus I
+   use a lot is deleting messages and as long as Gnus thinks I'm a
+   novice it will ask me if I'm sure every single time.
+
+   #+BEGIN_SRC emacs-lisp
+     (setq gnus-novice-user nil)
+   #+END_SRC
+
+   Add a keybinding to the Gnus summary mode to easily delete
+   messages.
+
+   #+BEGIN_SRC emacs-lisp
+     (defun oni:gnus-delete-forward ()
+       "Delete the article under point and move to the next one."
+       (interactive)
+       (gnus-summary-delete-article)
+       (gnus-summary-next-subject 1))
+
+     (with-eval-after-load 'gnus
+       (define-key gnus-summary-mode-map (kbd "M-d") #'oni:gnus-delete-forward))
+   #+END_SRC
+
 *** ryuslash.org
 
     Set my main email address as the primary select method for Gnus.
-- 
cgit v1.2.3-54-g00ecf