equal
deleted
inserted
replaced
1396 (setq |
1396 (setq |
1397 gnus-group-goto-unread t |
1397 gnus-group-goto-unread t |
1398 gnus-summary-next-group-on-exit nil |
1398 gnus-summary-next-group-on-exit nil |
1399 ) |
1399 ) |
1400 |
1400 |
1401 (eval-after-load 'gnus-group |
1401 (setq |
1402 '(progn |
1402 gnus-permanently-visible-groups ".*" |
1403 ;; (define-key gnus-group-mode-map (kbd "l") |
1403 gnus-topic-display-empty-topics t) |
1404 ;; (lambda nil (interactive) (gnus-group-list-groups gnus-level-subscribed t))) |
|
1405 ;; Show read groups in any case. |
|
1406 (defadvice gnus-group-list-groups (before with-read-groups (&optional level unread lowest)) |
|
1407 (unless level |
|
1408 (ad-set-arg 0 gnus-level-subscribed)) |
|
1409 (ad-set-arg 1 t) |
|
1410 ) |
|
1411 (ad-activate 'gnus-group-list-groups) |
|
1412 )) |
|
1413 |
1404 |
1414 ;; (setq 'gnus-use-cache t) |
1405 ;; (setq 'gnus-use-cache t) |
1415 (setq gnus-use-long-file-name t) |
1406 (setq gnus-use-long-file-name t) |
1416 (setq gnus-cache-remove-articles '(read)) |
1407 (setq gnus-cache-remove-articles '(read)) |
1417 |
1408 |