Add 'Interesting Unread mail' bookmark

[max/dotfiles.git] / emacs / .emacs

diff --git a/emacs/.emacs b/emacs/.emacs
index c4c5da219c6ae3d6275e79705be021ee30643d95..bf43b9c68aad1913a53f3e18dab9bbe4c3fa47b7 100644 (file)
--- a/emacs/.emacs
+++ b/emacs/.emacs
@@ -192,7 +192,19 @@
                     (smtpmail-smtp-service . 587))))
 
        mu4e-context-policy 'pick-first)
-  (setq mu4e-html2text-command "lynx -stdin -dump -force_html"))
+  (setq mu4e-html2text-command "lynx -stdin -dump -force_html")
+  (add-to-list 'mu4e-bookmarks
+              '((concatenate
+                 'string
+                 "flag:unread "
+                 "AND ( "
+                 "maildir:/personal/Inbox OR "
+                 "maildir:/personal/slackware OR "
+                 "maildir:/personal-gmail/Inbox OR "
+                 "maildir:/aber/Inbox "
+                 ")") "Unread Interesting Messages" ?i)
+              ))
+
 (use-package mu4e-alert
   :ensure t
   :config