summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-03-10 23:37:21 -0400
committerKyle Meyer <kyle@kyleam.com>2014-03-10 23:37:21 -0400
commit82c16354240cc3510aad66158b820d78723c8596 (patch)
treead213a3809353ba19594009032f36d77e6ad1e03
parent6d6d7541e4c5b77b79eb859798e36db86053449b (diff)
downloademacs.d-82c16354240cc3510aad66158b820d78723c8596.tar.gz
Catch up gnus group and go to next
-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)