diff options
-rw-r--r-- | gnus.org | 21 | ||||
-rw-r--r-- | lib/themes/jao-light-theme.el | 2 |
2 files changed, 14 insertions, 9 deletions
@@ -250,16 +250,16 @@ (let ((feeds (seq-difference (directory-files "~/var/mail/feeds") '("emacs" "papers" "trove" "." "..")))) `(("nnml:bigml.inbox" "B" jao-themes-f00) - ("nnselect:bigml.bugs" "b" jao-themes-error) + ("nnml:bigml.bugs" "b" jao-themes-error) ("nnml:bigml.support" "S" default) ("nnml:jao.drivel" "I" jao-themes-f01) ("nnml:bigml.[^ibs]" "W" jao-themes-dimm) - ("nnml:jao.[^d]" "J" 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]\\|^gwene" "N" jao-themes-dimm)))) + ("^gmane\\.[^e]" "G" jao-themes-dimm)))) (defun jao-gnus--unread-counts () (seq-reduce (lambda (r g) @@ -376,7 +376,7 @@ * Groups buffer #+begin_src emacs-lisp ;; (setq gnus-group-line-format " %m%S%p%P:%~(pad-right 35)c %3y %B\n") - (setq gnus-group-line-format " %m%S%p%3y%P%* %~(pad-right 45)G %B\n") + (setq gnus-group-line-format " %m%S%p%3y%P%* %~(pad-right 40)C %B\n") (setq gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n") (setq gnus-group-uncollapsed-levels 2) (setq gnus-auto-select-subject 'unread) @@ -430,10 +430,12 @@ #+end_src * Group parameters #+begin_src emacs-lisp - (setq gnus-permanently-visible-groups "^nnselect:.*") + (setq gnus-permanently-visible-groups "^nnselect:.*-today") (setq gnus-parameters - `(("nnml:local" + `(("^nnselect:.*\\(-today\\|bigml\\.bugs\\)" + (nnselect-rescan . t)) + ("nnml:local" (auto-expire . t) (total-expire . t) (expiry-wait . 1) @@ -486,11 +488,14 @@ (total-expire . t) (expiry-wait . 7) (expiry-target . delete) - (jao-gnus--archiving-group "nnml:feeds/trove")) + (jao-gnus--archiving-group "nnml:feeds.trove")) ("nnml:feeds\\.\\(news\\|emacs\\|prog\\)$" (expiry-wait . 1)) ("nnml:feeds\\.trove" (auto-expire . nil) - (total-expire . nil)))) + (total-expire . nil)) + ("\\(gmane\\|gwene\\)\\..*" + (jao-gnus--archiving-group "nnml:feeds.trove") + (posting-style (address "jao@gnu.org"))))) (dolist (dir '("jao" "bigml" "feeds")) (jao-gnus-nnml--add-maildir dir)) diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el index 2a6c82e..8803890 100644 --- a/lib/themes/jao-light-theme.el +++ b/lib/themes/jao-light-theme.el @@ -87,7 +87,7 @@ (diff-hl-delete (c "white" "wheat1")) (fill-column-indicator (c "grey80")) (fringe (c "grey70" nil)) - (gnus-button (p dimm) nul) + (gnus-button (p link) nul) (gnus-cite-1 (c "darkslategray" nil)) (gnus-cite-2 (c "slate gray" nil)) (gnus-cite-3 (c "slate gray" nil)) |