summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAmin Bandali <bandali@gnu.org>2021-04-27 19:23:58 -0400
committerAmin Bandali <bandali@gnu.org>2021-04-27 19:23:58 -0400
commit41fb7da0e9da05c0d1cf7bb58c918b69d48adf65 (patch)
treee1a528a59bfcdced7fe793e51965832627398960
parent1fff63611a867b2dddc8d2ac84fd7f577b1f8964 (diff)
downloadconfigs-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.el17
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))