From 5dae2bbfcd88ada9fcbfec224e15b1a7d11b2943 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 27 Mar 2017 21:10:51 -0700
Subject: Improve oni-gnus-delete-forward

---
 emacs/.emacs.d/site-lisp/oni-gnus.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'emacs/.emacs.d')

diff --git a/emacs/.emacs.d/site-lisp/oni-gnus.el b/emacs/.emacs.d/site-lisp/oni-gnus.el
index b525e42..2009160 100644
--- a/emacs/.emacs.d/site-lisp/oni-gnus.el
+++ b/emacs/.emacs.d/site-lisp/oni-gnus.el
@@ -27,11 +27,13 @@
 (require 'gnus-sum)
 
 ;;;###autoload
-(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))
+(defun oni-gnus-delete-forward (&optional n)
+  "Delete the article under point and move to the next one.
+Do this N times."
+  (interactive "p")
+  (dotimes (_ (or n 1))
+    (gnus-summary-delete-article)
+    (gnus-summary-next-subject 1)))
 
 (provide 'oni-gnus)
 ;;; oni-gnus.el ends here
-- 
cgit v1.2.3-54-g00ecf