From 41fb7da0e9da05c0d1cf7bb58c918b69d48adf65 Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Tue, 27 Apr 2021 19:23:58 -0400
Subject: 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(-)
(limited to '.emacs.d/lisp/bandali-gnus.el')
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))
--
cgit v1.2.3-83-g751a