43 lines
1.7 KiB
EmacsLisp
43 lines
1.7 KiB
EmacsLisp
(let
|
|
((mu4e-path
|
|
(concat (getenv "HOME") "/.nix-profile/share/emacs/site-lisp/mu4e/")))
|
|
(unless (file-exists-p mu4e-path)
|
|
(throw 'mu4e-load-path "cannot locate mu4e load path"))
|
|
(add-to-list 'load-path mu4e-path))
|
|
|
|
(require 'mu4e)
|
|
|
|
(defun mu4e-notify-new-messages ()
|
|
(let ((message-count (plist-get mu4e-index-update-status :updated)))
|
|
(unless (eq message-count 0)
|
|
(shell-command (format (concat "notify-send -t 10000 -a mu4e "
|
|
"\"New mail\" \"%d new messages\"")
|
|
message-count)))))
|
|
|
|
(setq mu4e-maildir "~/mail"
|
|
mu4e-get-mail-command "mbsync -a"
|
|
mu4e-update-interval (* 5 60)
|
|
mu4e-change-filenames-when-moving t ; prevent mail syncing issues with mbsync
|
|
mu4e-refile-folder "/Archive"
|
|
mu4e-drafts-folder "/Drafts"
|
|
mu4e-sent-folder "/Sent"
|
|
mu4e-trash-folder "/Trash"
|
|
mu4e-maildir-shortcuts '(("/Inbox" . ?i)
|
|
("/Archive" . ?a)
|
|
("/Drafts" . ?d)
|
|
("/Conversations" . ?c)
|
|
("/Sales" . ?s))
|
|
mu4e-bookmarks '((:name "Unread messages" :query "flag:unread AND NOT flag:trashed" :key 117)
|
|
(:name "Today's messages" :query "date:today..now" :key 116)))
|
|
(add-hook 'mu4e-index-updated-hook 'mu4e-notify-new-messages)
|
|
(global-set-key (kbd "C-c m") 'mu4e)
|
|
|
|
;; smtp
|
|
(setq message-send-mail-function 'smtpmail-send-it
|
|
user-mail-address "jeremy@baxters.nz"
|
|
user-full-name "Jeremy Baxter"
|
|
smtpmail-smtp-server "smtp.migadu.com"
|
|
smtpmail-smtp-service 465
|
|
smtpmail-stream-type 'ssl)
|
|
|
|
;;; mu4e.el ends here
|