diff options
Diffstat (limited to 'custom/jao-custom-gnus.el')
| -rw-r--r-- | custom/jao-custom-gnus.el | 42 |
1 files changed, 28 insertions, 14 deletions
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index 4535fd3..2cd2499 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -201,7 +201,7 @@ (mapcar (lambda (b) `(imap :server "127.0.0.1" :port 1143 :user "jaor@pm.me" :password ,pwd - :stream starttls :predicate "DELETED UNSEEN" + :stream starttls :predicate "" :fetchflag "" :mailbox ,(if b (concat "Folders/" b) "INBOX"))) (or folders '(nil "drivel" "hacking" "bills" "prog" "words")))) @@ -658,18 +658,21 @@ (let ((feeds (thread-first (directory-files mail-source-directory nil "feeds\\.[^e]") (seq-difference '("feeds.trove"))))) - `(("nnml:bigml\\.inbox" "B" jao-themes-f00) - ("nnml:bigml\\.alba" "A" jao-themes-f00) - ("nnml:bigml\\.ryou" "R" jao-themes-f00) - ("nnml:bigml\\.bugs" "b" jao-themes-error) - ("nnml:bigml\\.support" "S" default) - ("nnml:bigml\\.[^aibsr]" "W" jao-themes-dimm) + `( + ;; ("nnml:bigml\\.inbox" "B" jao-themes-f00) + ;; ("nnml:bigml\\.alba" "A" jao-themes-f00) + ;; ("nnml:bigml\\.ryou" "R" jao-themes-f00) + ;; ("nnml:bigml\\.bugs" "b" jao-themes-error) + ;; ("nnml:bigml\\.support" "S" default) + ;; ("nnml:bigml\\.[^aibsr]" "W" jao-themes-dimm) + ("nnml:jao\\.bigml" "B" jao-themes-f00) ("nnml:jao\\.\\(inbox\\|trove\\)" "I" jao-themes-f01) - ("nnml:jao.hacking" "H" jao-themes-dimm) + ("nnml:jao.hunting" "H" jao-themes-f02) ("nnml:jao.write" "W" jao-themes-warning) ("nnml:jao.[^ithw]" "J" jao-themes-dimm) + ("nnml:jao.hacking" "J" jao-themes-dimm) (,(format "^nnml:%s" (regexp-opt feeds)) "F" jao-themes-dimm) - ("feeds\\.e" "E" jao-themes-dimm) + ;; ("feeds\\.e" "E" jao-themes-dimm) ("nnml:local" "l" jao-themes-dimm) ("nnrss:.*" "R" jao-themes-dimm) ("^\\(gwene\\|gmane\\)\\." "N" jao-themes-dimm)))) @@ -690,12 +693,19 @@ (defvar jao-gnus--notify-strs ()) +(defun jao-gnus--nnw-count () + (jao-when-darwin + (when-let* ((n (jao-nnw-unread-count))) + (when (> n 0) (list (format "(%s)" n)))))) + (defun jao-gnus--notify-strs () (let ((counts (jao-gnus--unread-counts))) - (seq-filter #'identity - (seq-map (lambda (args) - (apply 'jao-gnus--unread-label counts args)) - jao-gnus-tracked-groups)))) + (append + (seq-filter #'identity + (seq-map (lambda (args) + (apply 'jao-gnus--unread-label counts args)) + jao-gnus-tracked-groups)) + (jao-gnus--nnw-count)))) (defun jao-gnus--notify () (setq jao-gnus--notify-strs (jao-gnus--notify-strs)) @@ -794,7 +804,11 @@ '("message/rfc822" . jao-gnus-goto-file)))) ;;;; notmuch (use-package jao-notmuch-gnus - :demand t) + :demand t + :init + (jao-when-darwin + (setq jao-notmuch-gnus-mail-directory + (expand-file-name "gnus" jao-maildir)))) (jao-load-path "consult-notmuch") |