diff options
| -rw-r--r-- | lisp/init-gnus.el | 11 |
1 files changed, 11 insertions, 0 deletions
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) |