summaryrefslogtreecommitdiffhomepage
path: root/gnus.org
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-07-10 02:24:02 +0100
committerjao <jao@gnu.org>2021-07-10 02:24:18 +0100
commit5adea7669935fc661c8e2d7ec2fa57c4e505d8cf (patch)
treea0e8bd026d92169323b5af69249a92e15c180109 /gnus.org
parent0fdce9f23b433ce694c1c6a1e3baca80eb4628ed (diff)
downloadelibs-5adea7669935fc661c8e2d7ec2fa57c4e505d8cf.tar.gz
elibs-5adea7669935fc661c8e2d7ec2fa57c4e505d8cf.tar.bz2
little gnus nice-to-haves
Diffstat (limited to 'gnus.org')
-rw-r--r--gnus.org29
1 files changed, 18 insertions, 11 deletions
diff --git a/gnus.org b/gnus.org
index 09fa8e4..a8abd89 100644
--- a/gnus.org
+++ b/gnus.org
@@ -121,17 +121,18 @@
#+begin_src emacs-lisp
(setq gnus-search-use-parsed-queries t
jao-gnus-search-prefix (expand-file-name "~/var/mail/"))
-
- (defun jao-gnus-search-engine (engine)
- `(gnus-search-engine ,engine (remove-prefix ,jao-gnus-search-prefix)))
+ (with-eval-after-load "gnus-search"
+ (add-to-list 'gnus-search-expandable-keys "list-id"))
#+end_src
* News server
#+begin_src emacs-lisp
(setq gnus-select-method
(cond (jao-gnus-use-leafnode
- `(nntp "localhost"
- (gnus-search-engine gnus-search-notmuch
- (remove-prefix "/home/jao/var/news/"))))
+ '(nntp "localhost"
+ (gnus-search-engine
+ gnus-search-notmuch
+ (remove-prefix "/home/jao/var/news/")
+ (config-file "/home/jao/.notmuch-config-news"))))
(jao-gnus-use-gmane '(nntp "news.gmane.io"))
(t '(nnnil ""))))
@@ -185,13 +186,19 @@
(when jao-gnus-use-maildirs
(add-to-list 'gnus-secondary-select-methods
`(nnmaildir "bml" (directory "~/var/mail/bigml/")
- ,(jao-gnus-search-engine 'gnus-search-notmuch)))
+ (gnus-search-engine gnus-search-notmuch
+ (remove-prefix
+ "/home/jao/var/mail/"))))
(add-to-list 'gnus-secondary-select-methods
'(nnmaildir "jao" (directory "~/var/mail/jao/")
- ,(jao-gnus-search-engine 'gnus-search-notmuch)))
+ (gnus-search-engine gnus-search-notmuch
+ (remove-prefix
+ "/home/jao/var/mail/"))))
(add-to-list 'gnus-secondary-select-methods
'(nnmaildir "feeds" (directory "~/var/mail/feeds/")
- ,(jao-gnus-search-engine 'gnus-search-notmuch))))
+ (gnus-search-engine gnus-search-notmuch
+ (remove-prefix
+ "/home/jao/var/mail/")))))
#+end_src
* Demons and notifications
#+begin_src emacs-lisp
@@ -210,7 +217,7 @@
(defvar jao-gnus-tracked-groups
'(("nnimap:bigml/inbox" "B" jao-themes-f00)
- ("nnimap:bigml/bugs" "b" jao-themes-error)
+ ("nnselect:.*bugs" "b" jao-themes-error)
("nnimap:bigml/support" "S" default)
("nnimap:jao/inbox" "I" jao-themes-f01)
("nnimap:bigml/[^ibs]" "W" jao-themes-dimm)
@@ -391,7 +398,7 @@
(regexp-opt '("reports" "deploys" "lists" "drivel" "bugs"))
(regexp-opt '("think" "drivel" "lists"))))
- (setq gnus-permanently-visible-groups "^nnselect.*")
+ (setq gnus-permanently-visible-groups "^nnselect:.*today")
(setq gnus-parameters
`(("^nnimap:jao/.*"