Make deleting messages in Gnus easier

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.