emacs/mu: use new syntax

This commit is contained in:
Aaron Bieber 2022-07-27 08:56:50 -06:00
parent 833df679e2
commit 4e521f5593

View File

@ -1106,7 +1106,6 @@ mu init --muhome=/home/qbit/.mu -m /home/qbit/Maildir/fastmail/ --my-address="aa
(require 'org-mu4e) (require 'org-mu4e)
(setq mail-user-agent 'mu4e-user-agent (setq mail-user-agent 'mu4e-user-agent
mu4e-get-mail-command "mbsync fastmail" mu4e-get-mail-command "mbsync fastmail"
mu4e-mu-home (expand-file-name "~/.mu")
mu4e-update-interval 420 mu4e-update-interval 420
mu4e-compose-context-policy nil mu4e-compose-context-policy nil
mu4e-context-policy 'pick-first mu4e-context-policy 'pick-first
@ -1126,60 +1125,48 @@ mu init --muhome=/home/qbit/.mu -m /home/qbit/Maildir/fastmail/ --my-address="aa
((and fname (string-match "\\.diff.gz$" fname)) "~/patches") ((and fname (string-match "\\.diff.gz$" fname)) "~/patches")
(t "~/Downloads"))) (t "~/Downloads")))
mu4e-bookmarks mu4e-bookmarks
`(,(make-mu4e-bookmark `(( :name "Inbox"
:name "Inbox"
:query "maildir:/Inbox AND NOT flag:trashed" :query "maildir:/Inbox AND NOT flag:trashed"
:key ?i) :key ?i)
,(make-mu4e-bookmark ( :name "TODO"
:name "TODO"
:query "maildir:/TODO AND NOT flag:trashed" :query "maildir:/TODO AND NOT flag:trashed"
:key ?T) :key ?T)
,(make-mu4e-bookmark ( :name "Unread messages"
:name "Unread messages"
:query "flag:unread AND NOT flag:trashed AND NOT list:ports-changes.openbsd.org AND NOT list:source-changes.openbsd.org" :query "flag:unread AND NOT flag:trashed AND NOT list:ports-changes.openbsd.org AND NOT list:source-changes.openbsd.org"
:key ?u) :key ?u)
,(make-mu4e-bookmark ( :name "Today's messages"
:name "Today's messages"
:query (concat :query (concat
"date:today..now" "date:today..now"
" AND NOT flag:trashed" " AND NOT flag:trashed"
" AND NOT list:ports-changes.openbsd.org" " AND NOT list:ports-changes.openbsd.org"
" AND NOT list:source-changes.openbsd.org") " AND NOT list:source-changes.openbsd.org")
:key ?d) :key ?d)
,(make-mu4e-bookmark ( :name "Last 7 days"
:name "Last 7 days"
:query (concat :query (concat
"date:6d..now" "date:6d..now"
" AND NOT flag:trashed" " AND NOT flag:trashed"
" AND NOT list:ports-changes.openbsd.org" " AND NOT list:ports-changes.openbsd.org"
" AND NOT list:source-changes.openbsd.org") " AND NOT list:source-changes.openbsd.org")
:key ?w) :key ?w)
,(make-mu4e-bookmark ( :name "Hackers"
:name "Hackers"
:query "list:hackers.openbsd.org AND NOT flag:trashed" :query "list:hackers.openbsd.org AND NOT flag:trashed"
:key ?h) :key ?h)
,(make-mu4e-bookmark ( :name "Bugs"
:name "Bugs"
:query "list:bugs.openbsd.org AND NOT flag:trashed" :query "list:bugs.openbsd.org AND NOT flag:trashed"
:key ?b) :key ?b)
,(make-mu4e-bookmark ( :name "Tech"
:name "Tech"
:query "list:tech.openbsd.org AND NOT flag:trashed" :query "list:tech.openbsd.org AND NOT flag:trashed"
:key ?t) :key ?t)
,(make-mu4e-bookmark ( :name "Ports"
:name "Ports"
:query "list:ports.openbsd.org AND NOT flag:trashed" :query "list:ports.openbsd.org AND NOT flag:trashed"
:key ?p) :key ?p)
,(make-mu4e-bookmark ( :name "Misc"
:name "Misc"
:query "list:misc.openbsd.org AND NOT flag:trashed" :query "list:misc.openbsd.org AND NOT flag:trashed"
:key ?m) :key ?m)
,(make-mu4e-bookmark ( :name "9front"
:name "9front"
:query "list:9front.9front.org AND NOT flag:trashed" :query "list:9front.9front.org AND NOT flag:trashed"
:key ?9) :key ?9)
,(make-mu4e-bookmark ( :name "GOT"
:name "GOT"
:query "list:gameoftrees.openbsd.org AND NOT flag:trashed" :query "list:gameoftrees.openbsd.org AND NOT flag:trashed"
:key ?g))))) :key ?g)))))
#+end_src #+end_src