diff options
author | 2017-03-27 21:10:51 -0700 | |
---|---|---|
committer | 2017-03-27 21:10:51 -0700 | |
commit | 5dae2bbfcd88ada9fcbfec224e15b1a7d11b2943 (patch) | |
tree | 91270ae39d0a687d51fdfcc95ba81b13ed474ca4 | |
parent | 4d022c5d864a4b884789d394ef1a229cf1bc398a (diff) | |
download | new-dotfiles-5dae2bbfcd88ada9fcbfec224e15b1a7d11b2943.tar.gz new-dotfiles-5dae2bbfcd88ada9fcbfec224e15b1a7d11b2943.zip |
Improve oni-gnus-delete-forward
-rw-r--r-- | emacs/.emacs.d/site-lisp/oni-gnus.el | 12 |
1 files 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 |