summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-gnus.el11
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)