From 5dae2bbfcd88ada9fcbfec224e15b1a7d11b2943 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 27 Mar 2017 21:10:51 -0700 Subject: [PATCH] Improve oni-gnus-delete-forward --- emacs/.emacs.d/site-lisp/oni-gnus.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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