Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Show read groups in any case.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 24 Aug 2012 20:15:06 +0300
changeset 916 0b93d234fddd
parent 915 b05ca7519565
child 917 5fe5849d07a0
Show read groups in any case.
.emacs-my file | annotate | diff | comparison | revisions 
--- a/.emacs-my	Fri Aug 24 15:51:54 2012 +0300
+++ b/.emacs-my	Fri Aug 24 20:15:06 2012 +0300
@@ -1389,8 +1389,15 @@
 
 (eval-after-load 'gnus-group
   '(progn
-     (define-key gnus-group-mode-map (kbd "l")
-       (lambda nil (interactive) (gnus-group-list-groups gnus-level-subscribed t)))
+     ;; (define-key gnus-group-mode-map (kbd "l")
+     ;;   (lambda nil (interactive) (gnus-group-list-groups gnus-level-subscribed t)))
+     ;; Show read groups in any case.
+     (defadvice gnus-group-list-groups (before with-read-groups (&optional level unread lowest))
+       (unless level
+         (ad-set-arg 0 gnus-level-subscribed))
+       (ad-set-arg 1 t)
+       )
+     (ad-activate 'gnus-group-list-groups)
      ))
 
 ;; (setq 'gnus-use-cache t)
dot-emacs