From 82c16354240cc3510aad66158b820d78723c8596 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 10 Mar 2014 23:37:21 -0400 Subject: Catch up gnus group and go to next --- lisp/init-gnus.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index 838dae4..d6866de 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -179,6 +179,7 @@ on a new line and the resulting paragraph is filled." (add-hook 'gnus-summary-mode-hook (lambda () (gnus-define-keys gnus-summary-mode-map + "c" km/gnus-catchup-and-goto-next-group "j" gnus-summary-next-unread-article ";" gnus-summary-universal-argument ;; mutt's tag "e" gnus-summary-scroll-up))) @@ -238,4 +239,14 @@ on a new line and the resulting paragraph is filled." (global-set-key (kbd "C-x m") 'km/gnus) +;; From http://ivan.kanis.fr/ivan-gnus.el +(defun km/gnus-catchup-and-goto-next-group (&optional all) + "Mark all articles in this group as read and select the next group. +If given a prefix, mark all articles, unread as well as ticked, as +read. Don't ask to confirm." + (interactive "P") + (save-excursion + (gnus-summary-catchup all t)) + (gnus-summary-next-group)) + (provide 'init-gnus) -- cgit v1.2.3