diff options
| -rw-r--r-- | gnus.org | 36 |
1 files changed, 19 insertions, 17 deletions
@@ -1,4 +1,4 @@ -#+property: header-args :tangle ~/.emacs.d/gnus.el :comments yes :results silent +#+property: header-args :lexical t :tangle ~/.emacs.d/gnus.el :comments yes :results silent :shebang ";; -*- lexical-binding: t -*-" :tangle-mode (identity #o644) #+title: Gnus #+auto_tangle: t @@ -217,11 +217,12 @@ (defvar jao-gnus-tracked-groups '(("nnimap:bigml/inbox" "B" jao-themes-f00) - ("nnselect:.*bugs" "b" jao-themes-error) + ("nnselect:bigml-bugs" "b" jao-themes-error) ("nnimap:bigml/support" "S" default) ("nnimap:jao/inbox" "I" jao-themes-f01) ("nnimap:bigml/[^ibs]" "W" jao-themes-dimm) ("nnimap:jao" "J" jao-themes-dimm) + ("nnimap:local" "l" jao-themes-dimm) ("nnimap:feeds/[^e]" "F" jao-themes-dimm) ("^gmane\\.emacs\\|nnimap:feeds/emacs" "E" jao-themes-dimm) ("^gmane\\.[^e]\\|^gwene" "N" jao-themes-dimm))) @@ -245,8 +246,8 @@ (defun jao-gnus--notify-strs () (let ((counts (jao-gnus--unread-counts))) (seq-filter #'identity - (seq-map `(lambda (args) - (apply 'jao-gnus--unread-label ',counts args)) + (seq-map (lambda (args) + (apply 'jao-gnus--unread-label counts args)) jao-gnus-tracked-groups)))) (defun jao-gnus--notify () @@ -389,16 +390,7 @@ #+end_src * Group parameters #+begin_src emacs-lisp - (setq jao-gnus-expirable - (format (concat "^nnimap:\\(" - "\\(bigml/%s\\)\\|" - "\\(jao/%s\\)\\|" - "\\(feeds/.*\\)\\|trash\\|spam\\|local" - "\\)") - (regexp-opt '("reports" "deploys" "lists" "drivel" "bugs")) - (regexp-opt '("think" "drivel" "lists")))) - - (setq gnus-permanently-visible-groups "^nnselect:.*today") + (setq gnus-permanently-visible-groups "^nnselect:.*-today") (setq gnus-parameters `(("^nnimap:jao/.*" @@ -415,6 +407,7 @@ ("^nnimap:.*/\\(inbox\\|hacking\\)" (gcc-self . t)) ("^nnimap:bigml/.*" + (gcc-self . t) (posting-style (address "jao@bigml.com")) (jao-gnus--archiving-group "nnimap:bigml/trove") (jao-gnus--spam-group "nnimap:bigml/spam")) @@ -425,20 +418,29 @@ (expiry-target . "nnimap:bigml/trove")) ("^nnimap:bigml/support" (posting-style (address "support@bigml.com"))) - (,jao-gnus-expirable + (,(format "^nnimap:bigml/%s" + (regexp-opt '("reports" "deploys" "lists" "drivel"))) (jao-gnus--trash-group nil) (gcc-self . nil) (auto-expire . t) (total-expire . t) (expiry-wait . 3) (expiry-target . delete)) + ("^nnimap:\\(jao/\\(think\\|drivel\\)\\|local\\)" + (auto-expire . t) + (total-expire . t) + (expiry-wait . 1) + (expiry-target . delete)) ("^nnimap:feeds/.*" + (auto-expire . t) + (total-expire . t) + (expiry-wait . 7) + (expiry-target . delete) (jao-gnus--archiving-group "nnimap:feeds/trove")) + ("^nnimap:feeds/news$" (expiry-wait . 1)) ("^nnimap:feeds/trove" (auto-expire . nil) (total-expire . nil)) - ("^nnimap:feeds/\\(papers\\|math\\|physics\\)$" - (expiry-wait . 30)) ("\\(gmane\\|gwene\\)\\..*" (jao-gnus--archiving-group "nnimap:feeds/trove") (posting-style (address "jao@gnu.org"))))) |