From 63ea47e840198d406002b0cdfa3410b7cfb115dd Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 2 Jun 2014 23:40:44 +0200
Subject: Make deleting articles in gnus easier

---
 .emacs.d/init.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index d246ced..c356288 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1202,7 +1202,7 @@ from myaethon2.core.decorators import (
 
 (oni:add-function-to-hooks #'oni:make-readable
   'Info-mode-hook 'gnus-article-mode-hook 'gnus-group-mode-hook
-  'gnus-summary-mode-hook 'org-agenda-mode-hook)
+  'org-agenda-mode-hook)
 
 (oni:add-function-to-hooks #'paredit-mode
   'clojure-mode-hook 'geiser-repl-mode-hook 'sawfish-mode-hook
@@ -1224,6 +1224,13 @@ from myaethon2.core.decorators import (
   #'buffer-disable-undo #'oni:set-keys-for-eshell
   #'eshell-fringe-status-mode)
 
+(oni:add-hooks 'gnu-summary-mode-hook
+  #'oni:make-readable (lambda ()
+                        (local-set-key (kbd "M-d") (lambda ()
+                                                     (interactive)
+                                                     (gnus-summary-delete-article)
+                                                     (gnus-summary-next-subject 1)))))
+
 (oni:add-hooks 'go-mode-hook
   #'oni:go-mode-func #'flycheck-mode)
 
-- 
cgit v1.2.3-54-g00ecf