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.