about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-07 18:23:59 -0500
committerCase Duckworth2021-10-07 18:23:59 -0500
commit88a27cd598b9283ede861cc9281a073837b5c162 (patch)
treea8f630a20ba10284fadc0e49153cc7c337e4139d
parentFigure out flymake-inhibiting after reading local variables (diff)
downloademacs-88a27cd598b9283ede861cc9281a073837b5c162.tar.gz
emacs-88a27cd598b9283ede861cc9281a073837b5c162.zip
Add mu4e contexts
-rw-r--r--init.el63
1 files changed, 50 insertions, 13 deletions
diff --git a/init.el b/init.el index d3b05c8..e424c84 100644 --- a/init.el +++ b/init.el
@@ -690,20 +690,57 @@ specific to most general, they are these:
690 690
691(setup mu4e 691(setup mu4e
692 (:load-from "/usr/share/emacs/site-lisp/mu4e") 692 (:load-from "/usr/share/emacs/site-lisp/mu4e")
693 (:option mu4e-change-filenames-when-moving t 693 (:autoload (mu4e :interactive t)
694 mu4e-update-interval (* 10 60) 694 make-mu4e-context)
695 (:option message-kill-buffer-on-exit t
696 message-send-mail-function #'smtpmail-send-it
697 mu4e-change-filenames-when-moving t
698 mu4e-contexts
699 (list
700 ;; Work
701 (make-mu4e-context
702 :name "Work"
703 :match-func (lambda (msg)
704 (when msg
705 (string-prefix-p
706 work-mail-dir
707 (mu4e-message-field msg :maildir))))
708 :vars `((user-mail-address . ,work-email)
709 (smtpmail-smtp-server . ,work-smtp-server)
710 (mu4e-compose-format-flowed . nil)
711 (mu4e-drafts-folder
712 . ,(concat work-mail-dir "/[Gmail]/Drafts"))
713 (mu4e-sent-folder
714 . ,(concat work-mail-dir "/[Gmail]/Sent Mail"))
715 (mu4e-refile-dir
716 . ,(concat work-mail-dir "/[Gmail]/All Mail"))
717 (mu4e-trash-folder
718 . ,(concat work-mail-dir "/[Gmail]/Trash"))))
719 ;; Home
720 (make-mu4e-context
721 :name "Home"
722 :match-func (lambda (msg)
723 (when msg
724 (string-prefix-p
725 home-mail-dir
726 (mu4e-message-field msg :maildir))))
727 :vars `((user-mail-address . ,home-email)
728 (smtpmail-smtp-server . ,home-smtp-server)
729 (mu4e-compose-format-flowed . nil)
730 (mu4e-drafts-folder
731 . ,(concat home-mail-dir "/Drafts"))
732 (mu4e-sent-folder
733 . ,(concat home-mail-dir "/Sent"))
734 (mu4e-refile-folder
735 . ,(concat home-mail-dir "/Archive"))
736 (mu4e-trash-folder
737 . ,(concat home-mail-dir "/Trash")))))
695 mu4e-get-mail-command "mbsync -a" 738 mu4e-get-mail-command "mbsync -a"
696 mu4e-maildir "~/mail/clickhere") 739 mu4e-maildir "~/mail"
697 (:option mu4e-drafts-folder "/[Gmail]/Drafts" 740 mu4e-update-interval (* 10 60)
698 mu4e-sent-folder "/[Gmail]/Sent Mail" 741 send-mail-function #'smtpmail-send-it
699 mu4e-refile-folder "/[Gmail]/All Mail" 742 smtpmail-smtp-service 465
700 mu4e-trash-folder "/[Gmail]/Trash" 743 smtpmail-stream-type 'ssl))
701 mu4e-maildir-shortcuts
702 `((:maildir "/Inbox" :key ?i)
703 (:maildir ,mu4e-drafts-folder :key ?d)
704 (:maildir ,mu4e-sent-folder :key ?s)
705 (:maildir ,mu4e-refile-folder :key ?a)
706 (:maildir ,mu4e-trash-folder :key ?t))))
707 744
708(setup page 745(setup page
709 (:option page-delimiter 746 (:option page-delimiter