# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1344936452 -10800
# Node ID cb42c2651d3f64c5bf2eef2a5127f0599234c897
# Parent  a3b18cbc729345630e56b6ca720534b3a877348f
Add command to show all subscribed groups (ever read).

diff -r a3b18cbc7293 -r cb42c2651d3f .emacs-my
--- 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))