larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2026-03-04 06:00:13 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Make mu4e ignore noisy email

Browse Source
This commit is contained in:
larstvei 2026-02-28 15:19:05 +01:00
parent d5da822a85
commit 89259b3107
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
init.org
View File

@ -1209,9 +1209,7 @@
(use-package mu4e (use-package mu4e
:ensure nil :ensure nil
:if (and (file-exists-p "~/Maildir") :if (and (file-exists-p "~/Maildir")
(executable-find "mbsync") (seq-every-p 'executable-find '("mbsync" "msmtp" "mu")))
(executable-find "msmtp")
(executable-find "mu"))
:bind (:map custom-bindings-map ("C-x m" . mu4e)) :bind (:map custom-bindings-map ("C-x m" . mu4e))
:config :config
@ -1221,7 +1219,6 @@
(setq mu4e-change-filenames-when-moving t) (setq mu4e-change-filenames-when-moving t)
(setq mu4e-get-mail-command (concat (executable-find "mbsync") " -a")) (setq mu4e-get-mail-command (concat (executable-find "mbsync") " -a"))
(setq mu4e-maildir "~/Maildir")
(setq mu4e-use-fancy-chars t) (setq mu4e-use-fancy-chars t)
(setq mu4e-drafts-folder "/uio/Drafts") (setq mu4e-drafts-folder "/uio/Drafts")
(setq mu4e-sent-folder "/uio/Sent Items") (setq mu4e-sent-folder "/uio/Sent Items")
@ -1231,6 +1228,19 @@
'(("/uio/Inbox" . ?i) '(("/uio/Inbox" . ?i)
("/uio/Sent Items" . ?s))) ("/uio/Sent Items" . ?s)))
(let* ((inspera-noise " AND NOT maildir:\"/uio/Inspera varsling\"")
(devilry-noise " AND NOT maildir:/uio/Devilry")
(general-noise " AND NOT maildir:\"/uio/Junk Email\"")
(noise-filter (concat inspera-noise devilry-noise general-noise)))
(setq mu4e-bookmarks
`(( :name "Unread messages" :key ?u
:query ,(concat "flag:unread" noise-filter))
( :name "Today's messages" :key ?t
:query ,(concat "date:today..now" noise-filter) )
( :name "Last 7 days" :key ?w
:query ,(concat "date:7d..now" noise-filter)))))
(setq sendmail-program (executable-find "msmtp")) (setq sendmail-program (executable-find "msmtp"))
(setq send-mail-function 'smtpmail-send-it) (setq send-mail-function 'smtpmail-send-it)
(setq message-sendmail-f-is-evil t) (setq message-sendmail-f-is-evil t)