diff options
Diffstat (limited to '.config')
-rw-r--r-- | .config/emacs/jd/jd-mu4e.el | 64 |
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) | ||