diff options
| author | Amin Bandali <bandali@gnu.org> | 2021-04-27 19:23:58 -0400 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2021-04-27 19:23:58 -0400 |
| commit | 41fb7da0e9da05c0d1cf7bb58c918b69d48adf65 (patch) | |
| tree | e1a528a59bfcdced7fe793e51965832627398960 | |
| parent | 1fff63611a867b2dddc8d2ac84fd7f577b1f8964 (diff) | |
| download | configs-41fb7da0e9da05c0d1cf7bb58c918b69d48adf65.tar.gz configs-41fb7da0e9da05c0d1cf7bb58c918b69d48adf65.tar.xz configs-41fb7da0e9da05c0d1cf7bb58c918b69d48adf65.zip | |
Tweak Gnus setup.
Most usefully, set gnus-topic-topology for a stable topology of Gnus
topics.
| -rw-r--r-- | .emacs.d/lisp/bandali-gnus.el | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el index 2c86407..337e620 100644 --- a/.emacs.d/lisp/bandali-gnus.el +++ b/.emacs.d/lisp/bandali-gnus.el @@ -153,7 +153,7 @@ ("nnimap\\+uwaterloo:.*" (gcc-self . t))) ;; nnimap-record-commands t - gnus-large-newsgroup 50 + ;; gnus-large-newsgroup 50 gnus-home-directory (b/var "gnus/") gnus-directory (concat gnus-home-directory "news/") message-directory (concat gnus-home-directory "mail/") @@ -237,6 +237,7 @@ (match-string 0 combined-lapsed)))) (concat local lapsed)))) ;; local key bindings + (declare-function org-store-link "ol" (arg &optional interactive?)) (define-key gnus-article-mode-map (kbd "M-L") #'org-store-link)) (with-eval-after-load 'gnus-sum @@ -306,8 +307,7 @@ jami:bandali") (address "amin.bandali@savoirfairelinux.com") (signature b/sfl-signature) (gcc "nnimap+sfl:Sent") - ;; (eval (setq-local b/sfl-p t)) - )))) + (eval (setq-local b/sfl-p t)))))) ;; hooks ;; (with-eval-after-load 'gnus ;; (add-hook 'gnus-message-setup-hook @@ -317,7 +317,16 @@ jami:bandali") ;; (mml-secure-message-sign))))) (with-eval-after-load 'gnus-topic - (csetq gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n")) + (csetq + gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n" + gnus-topic-topology '(("Gnus" visible nil nil) + (("misc" visible nil nil)) + (("sfl" visible nil nil)) + (("csc" visible nil nil)) + (("uwaterloo" visible nil nil)) + (("shemshak" visible nil nil)) + (("gnu" visible nil nil)) + (("old-gnu" visible nil nil))))) (with-eval-after-load 'gnus-agent (csetq gnus-agent-synchronize-flags 'ask)) |