blob: 95cdb20a17a802fe411298a8e334e1360186781c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
;;; Code:
(require 'mu4e)
(require 'org-mime)
(require 'org-mu4e)
(require 'smtpmail)
(setq personal-email (password-store-get-field "mbsync/personal-gmail" "username"))
(setq
;; get mail options
mu4e-get-mail-command "mbsync -a"
mu4e-update-interval 120
mu4e-headers-auto-update t
mu4e-view-prefer-html t
;; Don't save message to Sent Messages, Gmail/IMAP takes care of this
;; Override in context switching for other type of mailboxes
mu4e-sent-messages-behavior 'delete
message-kill-buffer-on-exit t
shr-color-visible-luminance-min 40
mu4e-view-show-images t
mu4e-use-fancy-chars t
;; This fixes the error 'mbsync error: UID is x beyond highest assigned UID x'
mu4e-change-filenames-when-moving t
user-mail-address personal-email
user-full-name "Benj Bellon"
;; default to first (personal) context
mu4e-context-policy 'pick-first
mu4e-compose-context-policy 'pick-first
;; Customize the flags to something more sensible.
mu4e-headers-flagged-mark '("F" . "⚑")
mu4e-headers-unread-mark '("u" . "✉")
mu4e-headers-replied-mark '("R" . "←")
mu4e-date-format "%y/%m/%d"
mu4e-headers-date-format "%Y/%m/%d"
mu4e-attachment-dir "~/Downloads/.mail-attachments"
mu4e-maildir "~/.mail/"
;; sendmail options
message-send-mail-function 'smtpmail-send-it
smtpmail-debug-info t
smtpmail-stream-type 'starttls
smtpmail-default-smtp-server "smtp.gmail.com")
;; This will ensure the right 'sent from' address and email sign off etc. be
;; picked up when replying to emails.
(setq mu4e-contexts
`(
,(make-mu4e-context
:name "personal"
:enter-func (lambda () (mu4e-message "Entering personal account context"))
:leave-func (lambda () (mu4e-message "Leaving personal account context"))
;; We match based on the contact-fields of the message
:match-func (lambda (msg)
(when msg
(mu4e-message-contact-field-matches msg :to personal-email)
(mu4e-message-contact-field-matches msg :from personal-email)
(mu4e-message-contact-field-matches msg :cc personal-email)
(mu4e-message-contact-field-matches msg :bcc personal-email)))
:vars `((user-mail-address . ,personal-email)
(user-full-name . "Benj Bellon")
(mu4e-drafts-folder . "/personal-gmail/[Gmail]/Drafts")
(mu4e-sent-folder . "/personal-gmail/[Gmail]/Sent Mail")
(mu4e-trash-folder . "/personal-gmail/[Gmail]/Trash")
(mu4e-refile-folder . "/personal-gmail/[Gmail]/All Mail")
(mu4e-maildir-shortcuts . (("/personal-gmail/INBOX" . ?i)
))
(smtpmail-smtp-user . ,personal-email)
(smtpmail-smtp-server . "smtp.gmail.com")
(smtpmail-smtp-service . 587)))
))
(when (fboundp 'imagemagick-register-types)
(imagemagick-register-types))
(add-to-list 'mu4e-view-actions '("View In Browser" . mu4e-action-view-in-browser) t)
(provide 'setup-mu4e)
;;; setup-mu4e.el ends here
|
