ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improve oni-gnus-delete-forward

Browse source
This commit is contained in:
Tom Willemse 2017-03-27 21:10:51 -07:00
parent 4d022c5d86
commit 5dae2bbfcd
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/.emacs.d/site-lisp/oni-gnus.el
View file

@ -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)
(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))
(gnus-summary-next-subject 1)))
(provide 'oni-gnus)
;;; oni-gnus.el ends here