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