From 04e10db7793afb1751f07f2b0bd0cba9b8e2fea7 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 18 Jul 2022 02:40:52 +0100 Subject: gnus nits --- custom/jao-custom-gnus.el | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) (limited to 'custom/jao-custom-gnus.el') diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index 43e6142..31dc806 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -56,7 +56,7 @@ ;;; Looks ;;;; geometry -(defvar jao-gnus-use-three-panes (and window-system (not jao-notmuch-enabled))) +(defvar jao-gnus-use-three-panes (not jao-notmuch-enabled)) (defvar jao-gnus-groups-width 50) (defvar jao-gnus-wide-width 190) @@ -146,8 +146,7 @@ ")"))) (q (concat "mime:message " dirsq " (" qstring ")"))) ;; (message "query is: %s" q) - `("-b" "-t" "-q" ,q))) - ) + `("-b" "-t" "-q" ,q)))) ;; (add-to-list 'gnus-parameters '("^nnselect:.*" (nnselect-rescan . t))) @@ -224,6 +223,12 @@ (total-expire . t) (expiry-wait . 7) (expiry-target . "nnml:bigml.trove")) + ("nnml:\\(bigml\\.alba\\|jao\\.hacking\\)" + (gcc-self . t) + (auto-expire . nil) + (total-expire . nil) + (expiry-target . nil) + (expiry-wait . nil)) ("nnml:bigml\\.trove" (auto-expire . t) (total-expire . t) @@ -304,7 +309,7 @@ ("nnml:bigml.[^ibs]" "W" jao-themes-dimm) ("nnml:jao.[^ist]" "J" jao-themes-dimm) (,(format "^nnml:%s" (regexp-opt feeds)) "F" jao-themes-dimm) - ("^\\(gmane\\|gwene\\)" "G" jao-themes-dimm) + ("^gmane" "G" jao-themes-dimm) ("nnml:local" "l" jao-themes-dimm)))) (defun jao-gnus--unread-counts () @@ -366,8 +371,8 @@ ;;; Groups buffer ;;;; customization ;; (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 30)C %B\n") -;; (setq gnus-group-line-format " %m%S%p%3y%P%* %~(pad-right 30)G %B\n") +;; (setq gnus-group-line-format " %m%S%p%3y%P%* %~(pad-right 30)C %B\n") +(setq gnus-group-line-format " %m%S%p%3y%P%* %~(pad-right 30)G %B\n") (setq gnus-topic-line-format "%i[ %(%{%n%}%) -- %A ]%v\n" gnus-group-uncollapsed-levels 2 @@ -607,7 +612,8 @@ gnus-visible-headers (concat gnus-visible-headers - "\\|^List-[iI][Dd]:\\|^X-Newsreader:\\|^X-Mailer:\\|User-Agent:\\|X-User-Agent:"))) + "\\|^List-[iI][Dd]:\\|^X-Newsreader:\\|^X-Mailer:" + "\\|^User-Agent:\\|^X-User-Agent:\\|^X-RSS-Feed:"))) ;;;; html and images (setq gnus-button-url 'browse-url-generic -- cgit v1.2.3