From 7a5097a669e7eb99847049c3413d75d652029bbd Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 7 Mar 2021 04:07:03 +0000 Subject: mail nits --- gnus.org | 23 ++++++++++++++--------- lib/net/jao-maildir.el | 2 +- 2 files changed, 15 insertions(+), 10 deletions(-) diff --git a/gnus.org b/gnus.org index 9332301..cee1685 100644 --- a/gnus.org +++ b/gnus.org @@ -1,5 +1,6 @@ #+title: Gnus #+PROPERTY: header-args :tangle yes :comments yes :results silent +#+auto_tangle: t * Feature switching vars #+BEGIN_SRC emacs-lisp @@ -264,6 +265,8 @@ `(("^nnimap:jao/.*" (jao-gnus--trash-group "nnimap:jao/trash") (jao-gnus--spam-group "nnimap:jao/spam") + (jao-gnus--archiving-group "nnimap:jao/archive")) + ("^nnimap:jao/archive$" (jao-gnus--archiving-group "nnimap:trove/jao")) ("^nnimap:pm/.*" (jao-gnus--trash-group "nnimap:pm/trash") @@ -277,8 +280,11 @@ (jao-gnus--trash-group nil) (expiry-target . delete)) ("^nnimap:jao/inbox" - (gcc-self . t) - (posting-style (gcc "nnimap:trove/jao"))) + (gcc-self . t)) + ("^nnimap:b\\(ig\\)?ml/.*" + (posting-style (address "jao@bigml.com")) + (jao-gnus--spam-group "nnimap:bigml/spam") + (jao-gnus--archiving-group "nnimap:bigml/trove")) ("^nnimap:b\\(ig\\)?ml/inbox" (gcc-self . t) (auto-expire . t) @@ -286,13 +292,6 @@ (expiry-wait . 7.0) (jao-gnus--trash-group "nnimap:trash") (expiry-target . "nnimap:bigml/trove")) - ("^nnimap:bml/inbox" - (jao-gnus--trash-group "nnimap:bml/trash") - (expiry-target . "nnimap:bml/trove")) - ("^nnimap:b\\(ig\\)?ml/.*" - (posting-style (address "jao@bigml.com")) - (jao-gnus--spam-group "nnimap:bigml/spam") - (jao-gnus--archiving-group "nnimap:bigml/trove")) ("^nnimap:b\\(ig\\)?ml/support" (posting-style (address "support@bigml.com"))) (,jao-gnus-expirable @@ -314,6 +313,12 @@ (posting-style (address "jao@gnu.org"))) ("^nnimap:feeds/\\(physics\\|math\\|papers\\)$" (jao-gnus--archiving-group "nnimap:trove/sci")) + ("^nnimap:jao/hacking$" + (jao-gnus--archiving-group "nnimap:trove/tech")) + ("^nnimap:jao/gnu$" + (jao-gnus--archiving-group "nnimap:trove/gnu")) + ("^nnimap:jao/bills$" + (jao-gnus--archiving-group "nnimap:trove/bills")) ("\\(gmane\\|gwene\\)\\..*" (jao-gnus--archiving-group "nnimap:trove/tech") (posting-style (address "jao@gnu.org"))))) diff --git a/lib/net/jao-maildir.el b/lib/net/jao-maildir.el index 76a9f9e..d68fbe0 100644 --- a/lib/net/jao-maildir.el +++ b/lib/net/jao-maildir.el @@ -135,7 +135,7 @@ (setq jao-maildir--watches (mapcar (lambda (mbox) (file-notify-add-watch (jao-maildir--maildir-new mbox) - '(change attribute-change) + '(change) (jao-maildir--watcher mbox cb))) jao-maildir--maildirs))) -- cgit v1.2.3