summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--gnus.org36
1 files changed, 19 insertions, 17 deletions
diff --git a/gnus.org b/gnus.org
index 79f19df..9f1d545 100644
--- a/gnus.org
+++ b/gnus.org
@@ -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")))))