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