--- 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)