;; mu4e (set-email-account! "admin@studyoftime.org" '((mu4e-sent-folder . "/admin@studyoftime.org/Sent") (mu4e-drafts-folder . "/admin@studyoftime.org/Drafts") (mu4e-trash-folder . "/admin@studyoftime.org/Trash") (mu4e-refile-folder . "/admin@studyoftime.org/Archive") (mu4e-spam-folder . "/admin@studyoftime.org/Spam") (smtpmail-smtp-user . "admin@studyoftime.org") (user-mail-address . "admin@studyoftime.org") ;; only needed for mu < 1.4 (smtpmail-default-smtp-server . "smtp.dreamhost.com") (smtpmail-smtp-server . "smtp.dreamhost.com") (smtpmail-local-domain . "dreamhost.com")) t) ;; last account listed is default (set-email-account! "matt@emenel.ca" '((mu4e-sent-folder . "/matt@emenel.ca/Sent") (mu4e-drafts-folder . "/matt@emenel.ca/Drafts") (mu4e-trash-folder . "/matt@emenel.ca/Trash") (mu4e-refile-folder . "/matt@emenel.ca/Archive") (mu4e-spam-folder . "/matt@emenel.ca/Spam") (smtpmail-smtp-user . "matt@emenel.ca") (user-mail-address . "matt@emenel.ca") ;; only needed for mu < 1.4 (smtpmail-default-smtp-server . "smtp.fastmail.com") (smtpmail-smtp-server . "smtp.fastmail.com") (smtpmail-local-domain . "fastmail.com")) t) (defun message-insert-signature-at-point () "Insert signature at point." (interactive) (setq message-signature "Matt Nish-Lapidus\nhttps://emenel.ca") (save-restriction (narrow-to-region (point) (point)) (message-insert-signature) (newline)) (setq message-signature nil)) (use-package! consult-mu :defer-incrementally mu4e :custom (consult-mu-maxnum 200) ;;show preview when pressing any keys (consult-mu-preview-key 'any) (consult-mu-mark-previewed-as-read nil) ;;mark email as read when selected. ;; (consult-mu-mark-viewed-as-read t) (consult-mu-use-wide-reply t) (consult-mu-headers-template (lambda () (concat "%f" (number-to-string (floor (* (frame-width) 0.15))) "%s" (number-to-string (floor (* (frame-width) 0.5))) "%d13" "%g" "%x"))) (consult-mu-action #'consult-mu--view-action) :config (setq consult-mu-saved-searches-dynamics '("#flag:unread")) (setq consult-mu-saved-searches-async '("#flag:unread")) ;; require embark actions for marking, replying, forwarding, etc. directly from minibuffer (require 'consult-mu-embark) ;; require extra module for composing (e.g. for interactive attachment) as well as embark actions (require 'consult-mu-compose) (require 'consult-mu-compose-embark) ;; require extra module for searching contacts and runing embark actions on contacts (require 'consult-mu-contacts) (require 'consult-mu-contacts-embark) ;; change the prefiew key for compose so you don't open a preview of every file when selecting files to attach (setq consult-mu-compose-preview-key "M-o") ;; pick a key to bind to consult-mu-compose-attach in embark-file-map (setq consult-mu-embark-attach-file-key "C-a") (setq consult-mu-contacts-ignore-list '("^.*no.*reply.*")) (setq consult-mu-contacts-ignore-case-fold-search t) (consult-mu-compose-embark-bind-attach-file-key) ;; choose if you want to use dired for attaching files (choice of 'always, 'in-dired, or nil) (setq consult-mu-compose-use-dired-attachment 'in-dired)) (use-package! mu4e :defer-incrementally t :config ;; Run mu4e in the background to sync mail periodically ;; (mu4e t) (setq mm-discouraged-alternatives '("text/html" "text/richtext")) ;; tell meow to start mu4e in motion state (pushnew! meow-mode-state-list '(mu4e-main-mode . motion)) (setq mu4e-update-interval 300 mu4e-headers-auto-update t) (setq mu4e-index-cleanup t mu4e-index-lazy-check nil mu4e-show-images t message-kill-buffer-on-exit t mu4e-enable-async-operations t) (setq message-citation-line-format "On %e %B %Y at %R %Z, %f wrote:\n") (setq message-citation-line-function 'message-insert-formatted-citation-line) (setq mu4e-context-policy 'pick-first) (add-hook 'mu4e-thread-mode-hook #'mu4e-thread-fold-all) (set-popup-rule! "*mu4e overview*" :side 'left :size '0.25) ;; Use gnus article view ;; (setq mu4e-view-use-gnus t) ;; (gnus-icalendar-setup) ;; Optional ;; (setq mu4e-icalendar-trash-after-reply t) (setq mu4e-bookmarks nil) (setq sendmail-program "/opt/homebrew/bin/msmtp" send-mail-function 'smtpmail-send-it message-sendmail-f-is-evil t message-sendmail-extra-arguments '("--read-envelope-from") message-send-mail-function 'message-send-mail-with-sendmail) (setq mu4e-compose-format-flowed t) (setq message-signature nil) (add-hook! 'mu4e-compose-mode-hook (use-hard-newlines -1) ;; (message-add-header "CC:") (message-goto-body) (message-insert-signature-at-point) (message-goto-body)) ;; (setq mu4e-bookmarks ;; '((:name "Unread messages" :query "flag:unread AND NOT flag:trashed" :key ?i) ;; (:name "Today's messages" :query "date:today..now" :key ?t) ;; (:name "The Boss" :query "from:stallman" :key ?s) ;; (:name "Last 7 days" :query "date:7d..now" :hide-unread t :key ?w) ;; (:name "Messages with images" :query "mime:image/*" :key ?p))) (mu4e-bookmark-define (concat "flag:unread" " and not maildir:/matt@emenel.ca/Spam" " and not maildir:/matt@emenel.ca/Trash" " and not maildir:/admin@studyoftime.org/Spam" " and not maildir:/admin@studyoftime.org/Trash") "All Unread" ?U) (mu4e-bookmark-define (concat "flag:unread" " and not maildir:/matt@emenel.ca/Spam" " and not maildir:/matt@emenel.ca/Trash" " and not maildir:/matt@emenel.ca/Archive" " and not maildir:/admin@studyoftime.org/Spam" " and not maildir:/admin@studyoftime.org/Trash" " and not maildir:/admin@studyoftime.org/Archive") "Inboxes Unread" ?u) ;; inboxes (mu4e-bookmark-define (concat "maildir:/matt@emenel.ca/Inbox" " or maildir:/admin@studyoftime.org/Inbox") "All Inboxes" ?i) (setq mu4e-maildir-shortcuts '((:maildir "/matt@emenel.ca/Inbox" :key ?1 :name "Inbox/matt@emenel.ca") (:maildir "/matt@emenel.ca/Sent" :key ?2 :name "Sent/matt@emenel.ca") (:maildir "/matt@emenel.ca/Spam" :key ?3 :name "Spam/matt@emenel.ca") (:maildir "/admin@studyoftime.org/Inbox" :key ?4 :name "Inbox/admin@studyoftime.org") (:maildir "/admin@studyoftime.org/Sent" :key ?5 :name "Sent/admin@studyoftime.org") (:maildir "/admin@studyoftime.org/Spam" :key ?6 :name "Spam/admin@studyoftime.org"))) (setq mu4e-alert-email-notification-types '(count)) (add-hook! mu4e-compose-mode (ws-butler-mode -1)))