diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-03-10 23:37:21 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-03-10 23:37:21 -0400 |
| commit | 82c16354240cc3510aad66158b820d78723c8596 (patch) | |
| tree | ad213a3809353ba19594009032f36d77e6ad1e03 | |
| parent | 6d6d7541e4c5b77b79eb859798e36db86053449b (diff) | |
| download | emacs.d-82c16354240cc3510aad66158b820d78723c8596.tar.gz | |
Catch up gnus group and go to next
| -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) |