mu4e

(add-to-list 'load-path "/home/myname/.guix-profile/share/emacs/site-lisp")

(require 'starttls)
(setq starttls-use-gnutls t)
(setq starttls-gnutls-program "gnutls-cli")
(setq starttls-extra-arguments nil)

(require 'mu4e)

;; get mail
(setq mu4e-get-mail-command "mbsync -a || echo ok"
      mu4e-update-interval 300 )

(setq mu4e-compose-dont-reply-to-self t)

;; send mail
(setq message-send-mail-function 'smtpmail-send-it
      smtpmail-debug-info t)

(setq mu4e-contexts
      `( ,(make-mu4e-context
	   :name "domain"
	   :enter-func
	   (lambda ()
	     (mu4e-message "Entering domain context")
	     (setq smtpmail-smtp-server "mail.domain.name"))
	   :leave-func (lambda () (mu4e-message "Leaving domain context"))
	   :match-func
	   (lambda (msg)
	     (when msg
	       (mu4e-message-contact-field-matches msg
						   :to "myname@domain.name")))
	   :vars '((user-mail-address . "myname@domain.name")
		   (user-full-name . "Myname Domain")
		   (mu4e-maildir . "~/Maildir/domain")
		   (mu4e-sent-folder . "/sent")
		   (mu4e-drafts-folder . "/drafts")
		   (mu4e-trash-folder .  "/trash")
		   (mu4e-refile-folder . "/archive")
		   (mu4e-compose-signature .
					   (concat "With best regards,\n"
						   "Myname Domain\n"))))
	 ,(make-mu4e-context
	   :name "mename2co"
	   :enter-func
	   (lambda ()
	     (mu4e-message "Entering name2co context")
	     (setq smtpmail-smtp-server "mail.name2.co"))
	   :leave-func (lambda () (mu4e-message "Leaving name2co context"))
	   :match-func
	   (lambda (msg)
	     (when msg
	       (mu4e-message-contact-field-matches msg
						   :to "me@name2.co")))
	   :vars '((user-mail-address . "me@name2.co")
		   (user-full-name . "name2")
		   (mu4e-maildir . "~/Maildir/name2co")
		   (mu4e-sent-folder . "/sent")
		   (mu4e-drafts-folder . "/drafts")
		   (mu4e-trash-folder .  "/trash")
		   (mu4e-refile-folder . "/archive")
		   (mu4e-compose-signature .
					   (concat "With best regards,\n"
						   "name2\n"))))
	 ,(make-mu4e-context
	   :name "name2"
	   :enter-func
	   (lambda ()
	     (mu4e-message "Entering name2 context")
	     (setq smtpmail-smtp-server "smtp.gmail.com"))
	   :leave-func (lambda () (mu4e-message "Leaving name2 context"))
	   :match-func
	   (lambda (msg)
	     (when msg
	       (mu4e-message-contact-field-matches msg
						   :to "name2@gmail.com")))
	   :vars '((user-mail-address . "name2@gmail.com")
		   (user-full-name . "name2")
		   (mu4e-maildir . "~/Maildir/name2")
		   (mu4e-sent-folder . "/sent")
		   (mu4e-drafts-folder . "/drafts")
		   (mu4e-trash-folder .  "/trash")
		   (mu4e-refile-folder . "/archive")
		   (mu4e-compose-signature .
					   (concat "With best regards,\n"
						   "name2\n"))))
	 ,(make-mu4e-context
	   :name "company"
	   :enter-func
	   (lambda () (mu4e-message "Entering company context")
	     (setq smtpmail-smtp-server "mail.de2.hostedoffice.ag"))
	   :leave-func (lambda () (mu4e-message "Leaving company context"))
	   :match-func
	   (lambda (msg)
	     (when msg
	       (mu4e-message-contact-field-matches msg
						   :to "fs@company.com")))
	   :vars '((user-mail-address . "fs@company.com")
		   (user-full-name . "Myname Myfamili")
		   (mu4e-maildir . "~/Maildir/company")
		   (mu4e-sent-folder . "/sent")
		   (mu4e-drafts-folder . "/drafts")
		   (mu4e-trash-folder .  "/trash")
		   (mu4e-refile-folder . "/archive")
		   (mu4e-compose-signature .
					   (concat "With best regards,\n"
						   "Myname famili\n"))))))

(add-to-list 'mu4e-bookmarks
  (make-mu4e-bookmark
    :name  "Personal emails"
    :query "to:myname@domain.name or to:name2@gmail.com or to:fs@company.com or to:me@name2.co"
    :key ?k))

(add-to-list 'mu4e-bookmarks
  (make-mu4e-bookmark
    :name  "Unreaded personal emails"
    :query "(to:myname@domain.name or (cc:myname@domain.name and not from:myname@domain.name) or bcc:myname@domain.name or to:name2@gmail.com or to:fs@company.com or (to:me@name2.co or bcc:me@name2.co or (cc:me@name2.co and not from:me@name2.co))) and flag:unread"
    :key ?n))


;; retag
(add-to-list 'mu4e-marks
  '(tag
     :char       "G"
     :prompt     "gtag"
     :ask-target (lambda () (read-string "What tag do you want to add? "))
     :action      (lambda (docid msg target)
                    (mu4e-action-retag-message msg (concat "+" target)))))

(mu4e~headers-defun-mark-for tag)
(define-key mu4e-headers-mode-map (kbd "G") 'mu4e-headers-mark-for-tag)

;; ;; receive mail
;; (setq
;;   mu4e-maildir       "~/Maildir/domain"   ;; top-level Maildir
;;   mu4e-sent-folder   "/sent"       ;; folder for sent messages
;;   mu4e-drafts-folder "/drafts"     ;; unfinished messages
;;   mu4e-trash-folder  "/trash"      ;; trashed messages
;;   mu4e-refile-folder "/archive")   ;; saved messages


;; ;; if our mail server lives at smtp.example.org; if you have a local
;; ;; mail-server, simply use 'localhost' here.
;; (setq smtpmail-smtp-server "mail.domain.name")

;; mu4e-conversation
;;(with-eval-after-load 'mu4e (require 'mu4e-conversation))
;;(setq mu4e-view-func 'mu4e-conversation)

;;;;; [[http://www.djcbsoftware.nl/code/mu/mu4e/BBDB.html][A.4 BBDB]]
;; Load BBDB (Method 1)
(require 'bbdb)
  ;; OR (Method 2)
  ;; (require 'bbdb-loaddefs "/path/to/bbdb/lisp/bbdb-loaddefs.el")
  ;; OR (Method 3)
  ;; (autoload 'bbdb-insinuate-mu4e "bbdb-mu4e")
  ;; (bbdb-initialize 'message 'mu4e)

(setq bbdb-mail-user-agent 'mu4e-user-agent)
(setq mu4e-view-mode-hook 'bbdb-mua-auto-update)
(setq mu4e-compose-complete-addresses nil)
(setq bbdb-mua-pop-up t)
(setq bbdb-mua-pop-up-window-size 5)
(setq mu4e-view-show-addresses t)