--- a/.emacs-my	Wed Aug 29 00:35:31 2012 +0300
+++ b/.emacs-my	Thu Aug 30 14:03:00 2012 +0300
@@ -1398,18 +1398,9 @@
  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)))
-     ;; 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-permanently-visible-groups ".*"
+ gnus-topic-display-empty-topics t)
 
 ;; (setq 'gnus-use-cache t)
 (setq gnus-use-long-file-name t)