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