equal
deleted
inserted
replaced
1387 gnus-summary-next-group-on-exit nil |
1387 gnus-summary-next-group-on-exit nil |
1388 ) |
1388 ) |
1389 |
1389 |
1390 (eval-after-load 'gnus-group |
1390 (eval-after-load 'gnus-group |
1391 '(progn |
1391 '(progn |
1392 (define-key gnus-group-mode-map (kbd "l") |
1392 ;; (define-key gnus-group-mode-map (kbd "l") |
1393 (lambda nil (interactive) (gnus-group-list-groups gnus-level-subscribed t))) |
1393 ;; (lambda nil (interactive) (gnus-group-list-groups gnus-level-subscribed t))) |
|
1394 ;; Show read groups in any case. |
|
1395 (defadvice gnus-group-list-groups (before with-read-groups (&optional level unread lowest)) |
|
1396 (unless level |
|
1397 (ad-set-arg 0 gnus-level-subscribed)) |
|
1398 (ad-set-arg 1 t) |
|
1399 ) |
|
1400 (ad-activate 'gnus-group-list-groups) |
1394 )) |
1401 )) |
1395 |
1402 |
1396 ;; (setq 'gnus-use-cache t) |
1403 ;; (setq 'gnus-use-cache t) |
1397 (setq gnus-use-long-file-name t) |
1404 (setq gnus-use-long-file-name t) |
1398 (setq gnus-cache-remove-articles '(read)) |
1405 (setq gnus-cache-remove-articles '(read)) |