# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1345828506 -10800
# Node ID 0b93d234fddd43b20278e0a864e4cf208fa02d1c
# Parent  b05ca7519565bcb5ae5678877ca299d93a464558
Show read groups in any case.

diff -r b05ca7519565 -r 0b93d234fddd .emacs-my
--- 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)