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

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

@ -27,11 +27,13 @@
(require 'gnus-sum) (require 'gnus-sum)
;;;###autoload ;;;###autoload
(defun oni-gnus-delete-forward () (defun oni-gnus-delete-forward (&optional n)
"Delete the article under point and move to the next one." "Delete the article under point and move to the next one.
(interactive) Do this N times."
(gnus-summary-delete-article) (interactive "p")
(gnus-summary-next-subject 1)) (dotimes (_ (or n 1))
(gnus-summary-delete-article)
(gnus-summary-next-subject 1)))
(provide 'oni-gnus) (provide 'oni-gnus)
;;; oni-gnus.el ends here ;;; oni-gnus.el ends here