From a97fadefaf7b86182de5fb6ed3d97c2f900c6d32 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 10 Nov 2021 23:05:36 +0000 Subject: wee gnus/message tweaks --- gnus.org | 32 +++++++++++++++++--------------- 1 file changed, 17 insertions(+), 15 deletions(-) (limited to 'gnus.org') diff --git a/gnus.org b/gnus.org index e791919..017261d 100644 --- a/gnus.org +++ b/gnus.org @@ -247,19 +247,17 @@ (setq gnus-check-new-newsgroups nil) (defvar jao-gnus-tracked-groups - (let ((feeds (seq-difference (directory-files "~/var/mail/feeds") - '("emacs" "papers" "trove" "." "..")))) + (let ((feeds (thread-first + (directory-files mail-source-directory nil "feeds") + (seq-difference '("feeds.trove"))))) `(("nnml:bigml.inbox" "B" jao-themes-f00) ("nnml:bigml.bugs" "b" jao-themes-error) ("nnml:bigml.support" "S" default) - ("nnml:jao.drivel" "I" jao-themes-f01) + ("nnml:jao.inbox" "I" jao-themes-f01) ("nnml:bigml.[^ibs]" "W" jao-themes-dimm) - ("nnml:jao.[^dst]" "J" jao-themes-dimm) - ("nnml:local" "l" jao-themes-dimm) - ("nnml:feeds.papers" "P" jao-themes-dimm) - ("^gmane\\.emacs\\|nnml:feeds.emacs" "E" jao-themes-dimm) - (,(format "nnml:feeds.%s" (regexp-opt feeds)) "F" jao-themes-dimm) - ("^gmane\\.[^e]" "G" jao-themes-dimm)))) + ("nnml:jao.[^ist]" "J" jao-themes-dimm) + (,(format "^gmane\\|nnml:%s" (regexp-opt feeds)) "F" jao-themes-dimm) + ("nnml:local" "l" jao-themes-dimm)))) (defun jao-gnus--unread-counts () (seq-reduce (lambda (r g) @@ -455,23 +453,24 @@ ("^nnml:.*\\.\\(inbox\\|hacking\\)" (gcc-self . t)) ("nnml:bigml\\..*" - (gcc-self . t) - (posting-style (address "jao@bigml.com")) + ;; (posting-style (address "jao@bigml.com")) (jao-gnus--trash-group "nnml:jao.trash") (jao-gnus--archiving-group "nnml:bigml.trove") (jao-gnus--spam-group "nnml:bigml.spam")) - ("nnml:bigml.inbox" + ("nnml:bigml\\.inbox" + (gcc-self . t) (auto-expire . t) (total-expire . t) (expiry-wait . 7) (expiry-target . "nnml:bigml.trove")) - ("nnml:bigml.trove" + ("nnml:bigml\\.trove" (auto-expire . t) (total-expire . t) (expiry-target . delete) (expiry-wait . 365)) (,(format "^nnml:bigml\\.%s" - (regexp-opt '("reports" "deploys" "lists" "drivel"))) + (regexp-opt '("support" "reports" "deploys" + "lists" "drivel" "bugs"))) (jao-gnus--trash-group nil) (gcc-self . nil) (auto-expire . t) @@ -493,6 +492,9 @@ ("nnml:feeds\\.trove" (auto-expire . nil) (total-expire . nil)) + ("nnml:feeds.fun" + (mm-html-inhibit-images nil) + (mm-html-blocked-images nil)) ("\\(gmane\\|gwene\\)\\..*" (jao-gnus--archiving-group "nnml:feeds.trove") (posting-style (address "jao@gnu.org"))))) @@ -514,7 +516,7 @@ (setq gnus-summary-ignore-duplicates t gnus-suppress-duplicates t - gnus-summary-ignored-from-addresses jao-mails-regexp + ;; gnus-summary-ignored-from-addresses jao-mails-regexp gnus-process-mark-toggle t gnus-refer-thread-use-search t gnus-auto-select-next 'almost-quietly) -- cgit v1.2.3