update

1 files changed, 100 insertions, 0 deletions

diff --git a/.config/emacs/org/config.org b/.config/emacs/org/config.org
index 0ada552..6722a16 100644
--- a/.config/emacs/org/config.org
+++ b/.config/emacs/org/config.org
@@ -232,6 +232,7 @@
   (evil-collection-init 'magit)
   (evil-collection-init 'flymake)
   (evil-collection-init 'neotree)
+  (evil-collection-init 'mu4e)
 
 
   (setq evil-emacs-state-cursor '("#b16286" box))
@@ -765,6 +766,105 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
   (setq neo-window-width 35)
 #+END_SRC
 
+*** mu4e
+#+BEGIN_SRC emacs-lisp
+	(require 'mu4e)
+	(require 'org-mu4e)
+	(require 'mu4e-contrib)
+	(require 'smtpmail)
+
+	(auth-source-pass-enable)
+	(setq auth-source-debug t)
+	(setq auth-source-do-cache nil)
+	(setq auth-sources '(password-store))
+	(setq message-kill-buffer-on-exit t)
+	(setq message-send-mail-function 'smtpmail-send-it)
+	(setq mu4e-attachment-dir "~/dl")
+	(setq mu4e-change-filenames-when-moving t)
+	(setq mu4e-completing-read-function 'completing-read)
+	(setq mu4e-compose-complete-addresses t)
+	(setq mu4e-compose-context-policy nil)
+	(setq mu4e-compose-dont-reply-to-self t)
+	(setq mu4e-compose-keep-self-cc nil)
+	(setq mu4e-context-policy 'pick-first)
+	(setq mu4e-get-mail-command "mbsync -a -c ~/.config/mbsync/mbsyncrc")
+	(setq mu4e-headers-date-format "%d-%m-%Y %H:%M")
+	(setq mu4e-headers-fields '((:human-date . 20)
+								(:flags . 6)
+								(:mailing-list . 10)
+								(:from . 22)
+								(:subject)))
+	(setq mu4e-headers-include-related t)
+	(setq mu4e-sent-messages-behavior 'delete)
+	(setq mu4e-view-show-addresses t)
+	(setq mu4e-view-show-images t)
+	(setq smtpmail-debug-info t)
+	(setq smtpmail-stream-type 'starttls)
+	(setq mm-sign-option 'guided)
+
+	(when (fboundp 'imagemagick-register-types)
+	  (imagemagick-register-types))
+
+	(defun sign-or-encrypt-message ()
+	  (let ((answer (read-from-minibuffer "Sign or encrypt?\nEmpty to do nothing.\n[s/e]: ")))
+		(cond
+		 ((string-equal answer "s") (progn
+									  (message "Signing message.")
+									  (mml-secure-message-sign-pgpmime)))
+		 ((string-equal answer "e") (progn
+									  (message "Encrypt and signing message.")
+									  (mml-secure-message-encrypt-pgpmime)))
+		 (t (progn
+			  (message "Dont signing or encrypting message.")
+			  nil)))))
+
+	(add-hook 'message-send-hook 'sign-or-encrypt-message)
+
+	(setq mu4e-contexts
+		  `( ,(make-mu4e-context
+			   :name "gmail"
+			   :enter-func (lambda ()
+							 (mu4e-message "Entering gmail context")
+							 (when (string-match-p (buffer-name (current-buffer)) "mu4e-main")
+							   (revert-buffer)))
+			   :leave-func (lambda ()
+							 (mu4e-message "Leaving gmail context")
+							 (when (string-match-p (buffer-name (current-buffer)) "mu4e-main")
+							   (revert-buffer)))
+			   :match-func (lambda (msg)
+							 (when msg
+							   (or (mu4e-message-contact-field-matches msg :to "Rudy Bousset <bousset.rudy@gmail.com>")
+								   (mu4e-message-contact-field-matches msg :from "Rudy Bousset <bousset.rudy@gmail.com>")
+								   (mu4e-message-contact-field-matches msg :cc "Rudy Bousset <bousset.rudy@gmail.com>")
+								   (mu4e-message-contact-field-matches msg :bcc "Rudy Bousset <bousset.rudy@gmail.com>")
+								   (string-match-p "^/bousset.rudy@gmail.com/INBOX" (mu4e-message-field msg :maildir)))))
+			   :vars '( ( user-mail-address            . "bousset.rudy@gmail.com" )
+						( smtpmail-smtp-user           . "bousset.rudy@gmail.com" )
+						( mu4e-compose-signature       . "Rudy Bousset" )
+						( smtpmail-smtp-server         . "smtp.gmail.com" )
+						( smtpmail-smtp-service        . 587 )
+						( mu4e-maildir-shortcuts       . ((:maildir "/bousset.rudy@gmail.com/INBOX" :key ?i)))
+						( mu4e-bookmarks
+						  .
+						  (( :name  "Unread messages"
+									 :query "maildir:/bousset.rudy@gmail.com/INBOX AND flag:unread AND NOT flag:trashed AND NOT outdoorexperten"
+									 :key ?u)
+							( :name "Today's messages"
+									:query "maildir:/bousset.rudy@gmail.com/INBOX AND date:today..now"
+									:key ?t)
+							( :name "Last 7 days"
+									:query "maildir:/bousset.rudy@gmail.com/INBOX AND date:7d..now"
+									:hide-unread t
+									:key ?w)
+							( :name "Deleted"
+									:query "flag:trashed"
+									:key ?d)
+							( :name "Possibly garbage"
+									:query "bokio OR outdoorexperten"
+									:key ?g)))))
+  ))
+#+END_SRC
+
 ** Custom funcs
 #+BEGIN_SRC emacs-lisp
 (defadvice text-scale-increase (around all-buffers (arg) activate)