summaryrefslogtreecommitdiffstats
path: root/.config/emacs/jd
diff options
context:
space:
mode:
Diffstat (limited to '.config/emacs/jd')
-rw-r--r--.config/emacs/jd/jd-mu4e.el64
1 files changed, 64 insertions, 0 deletions
diff --git a/.config/emacs/jd/jd-mu4e.el b/.config/emacs/jd/jd-mu4e.el
new file mode 100644
index 0000000..bd9043c
--- /dev/null
+++ b/.config/emacs/jd/jd-mu4e.el
@@ -0,0 +1,64 @@
1(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")
2
3
4(use-package org-msg
5 :ensure t)
6
7(use-package mu4e
8 :defer 20
9 :ensure nil
10 :config
11 (require 'org-mu4e)
12
13 (setq mu4e-update-interval (* 10 60))
14 (setq mu4e-get-mail-command "mbsync -a")
15 (setq mu4e-maildir "~/Mail")
16
17 (setq mu4e-completing-read-function #'ivy-completing-read)
18
19 (setq mu4e-change-filenames-when-moving t)
20
21 (setq mu4e-contexts
22 `(,(make-mu4e-context
23 :name "Abaks"
24 :match-func (lambda (msg) (when msg
25 (string-prefix-p "/abaks" (mu4e-message-field msg :maildir))))
26 :vars '(
27 (user-full-name . "Jakub Dlugosz")
28 (user-mail-address . "jakub@abaks.pl")
29 (mu4e-sent-folder . "/abaks/Sent Items")
30 (mu4e-trash-folder . "/abaks/Trash")
31 (mu4e-drafts-folder . "/abaks/Drafts")
32 (mu4e-refile-folder . "/abaks/Archive")
33 (mu4e-sent-messages-behavior . sent)
34 ))
35 ,(make-mu4e-context
36 :name "Gmail"
37 :match-func (lambda (msg) (when msg
38 (string-prefix-p "/gmail" (mu4e-message-field msg :maildir))))
39 :vars '(
40 (user-full-name . "Jakub Dlugosz")
41 (user-mail-address . "jdlugosz963@gmail.pl")
42 (mu4e-sent-folder . "/gmail/\[Gmail\]/Wys\&AUI-ane")
43 (mu4e-trash-folder . "/gmail/\[Gmail\]/Kosz")
44 (mu4e-drafts-folder . "/gmail/\[Gmail\]/Wersje\ robocze")
45 (mu4e-refile-folder . "/gmail/Archive")
46 (mu4e-sent-messages-behavior . sent)
47 ))))
48
49 (setq mail-user-agent 'mu4e-user-agent
50 message-send-mail-function 'smtpmail-send-it
51 smtpmail-smtp-server "smtp.abaks.pl"
52 smtpmail-local-domain "pl"
53 smtpmail-smtp-service 465
54 smtpmail-stream-type 'ssl)
55
56 (mu4e t))
57
58(jd/leader-key-def
59 "m" '(:ignore t :which-key "mail")
60 "mm" 'mu4e
61 "mc" 'mu4e-compose-new)
62
63
64(provide 'jd-mu4e)