(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(require 'mu4e)
(require 'org-mu4e)
(require 'mu4e-contrib)

(setq shr-color-visible-luminance-min 60)

(setq mu4e-get-mail-command "offlineimap"
      mu4e-compose-signature-auto-include nil
      mu4e-compose-dont-reply-to-self t
      mu4e-update-interval 120
      mu4e-headers-include-related t)

(setq mu4e-use-fancy-chars t)
(setq mu4e-headers-seen-mark    '("" . ""))
(setq mu4e-headers-unread-mark  '("u" . "✉"))

(setq mu4e-view-show-addresses t)
(setq mu4e-hide-index-messages t)
(setq mu4e-html2text-command 'mu4e-shr2text)
(setq mu4e-view-show-images t)
;; use imagemagick, if available
(when (fboundp 'imagemagick-register-types)
  (imagemagick-register-types))

(setq mu4e-maildir        "~/Mail"             ;; top-level Maildir
      mu4e-attachment-dir "~/Downloads"
      mu4e-sent-folder    "/private/Sent"      ;; folder for sent messages
      mu4e-drafts-folder  "/private/Drafts"    ;; unfinished messages
      mu4e-trash-folder   "/private/Trash"     ;; trashed messages
      mu4e-refile-folder  "/private/Archives"  ;; saved messages
      user-mail-address   "rekado@elephly.net")

(defvar my-mu4e-account-alist
  '(("private"
     (mu4e-sent-folder   "/private/Sent")
     (mu4e-drafts-folder "/private/Drafts")
     (mu4e-trash-folder  "/private/Trash")
     (mu4e-refile-folder "/private/Archives"))))

(setq mu4e-user-mail-address-list
      (mapcar (lambda (account) (cadr (assq 'user-mail-address account)))
              my-mu4e-account-alist))

(defun my-mu4e-set-account ()
  "Set the account for composing a message."
  (let* ((account
          (if mu4e-compose-parent-message
              (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir)))
                (string-match "/\\(.*?\\)/" maildir)
                (match-string 1 maildir))
            (completing-read (format "Compose with account: (%s) "
                                     (mapconcat #'(lambda (var) (car var))
                                                my-mu4e-account-alist "/"))
                             (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist)
                             nil t nil nil (caar my-mu4e-account-alist))))
         (account-vars (cdr (assoc account my-mu4e-account-alist))))
    (if account-vars
        (mapc #'(lambda (var)
                  (set (car var) (cadr var)))
              account-vars)
      (error "No email account found"))))

(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account)

;; pretty quotes!
(add-hook 'message-mode-hook 'typo-mode)

(add-to-list 'mu4e-bookmarks
             '("maildir:\"/private/INBOX\""  "Personal inbox"  ?i))
(add-to-list 'mu4e-bookmarks
             '("flag:flagged"  "Flagged"  ?f))

; set up email sending with msmtp
(setq mail-user-agent 'mu4e-user-agent)
(setq mail-specify-envelope-from t)
(setq mail-envelope-from 'header)

(setq message-kill-buffer-on-exit t)
(setq message-sendmail-envelope-from 'header)
(setq message-send-mail-function 'message-send-mail-with-sendmail)

;;use msmtp instead of sendmail
(setq sendmail-program "~/.guix-profile/bin/msmtp")


(global-set-key (kbd "<f12>") 'mu4e)

(setq mml2015-encrypt-to-self t)
(setq mml2015-sign-with-sender t)