--- a/.emacs-my	Tue Aug 14 11:41:10 2012 +0300
+++ b/.emacs-my	Tue Aug 14 12:27:32 2012 +0300
@@ -1387,6 +1387,12 @@
  gnus-summary-next-group-on-exit nil
  )
 
+(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)))
+     ))
+
 ;; (setq 'gnus-use-cache t)
 (setq gnus-use-long-file-name t)
 (setq gnus-cache-remove-articles '(read))