From 41fb7da0e9da05c0d1cf7bb58c918b69d48adf65 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Tue, 27 Apr 2021 19:23:58 -0400 Subject: [PATCH] Tweak Gnus setup. Most usefully, set gnus-topic-topology for a stable topology of Gnus topics. --- .emacs.d/lisp/bandali-gnus.el | 17 +++++++++++++---- 1 file 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)) -- 2.20.1