38 lines
1.3 KiB
EmacsLisp
38 lines
1.3 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 "notify-send mu4e \"%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)))
|
|
(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
|