blob: 2f4b08e78d21f5927133a05c33295b10731f9f48 (
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
;;; Code:
(require 'mu4e)
;; (require 'org-mime)
;; (require 'org-mu4e)
(require 'smtpmail)
(require 'mu4e-alert)
(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)
("/personal-gmail/[Gmail]/Drafts" . ?d)
("/personal-gmail/[Gmail]/Trash" . ?t)
("/personal-gmail/[Gmail]/All Mail" . ?a)))
(mu4e-bookmarks . (("date:today..now AND flag:unread AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\")" "Inbox" ?i)
("date:today..now AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")" "Today" ?t)
("date:7d..now AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")" "Last 7 Days" ?w)
("NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")" "All" ?a)))
(smtpmail-queue-dir . "~/.mail/personal-gmail/queue/cur")
(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)
(add-hook 'mu4e-compose-mode-hook (lambda () (auto-fill-mode -1)))
(add-hook 'message-send-hook (lambda () (mml-secure-message-sign-pgpmime)))
;; mu4e-alerts
(mu4e-alert-set-default-style 'libnotify)
(add-hook 'after-init-hook #'mu4e-alert-enable-mode-line-display)
(add-hook 'after-init-hook #'mu4e-alert-enable-notifications)
(setq
mu4e-alert-interesting-mail-query (concat
"date:today..now"
" AND flag:unread"
" AND NOT (\"maildir:/personal-gmail/[Gmail]/Trash\" OR \"maildir:/personal-gmail/[Gmail]/Sent Mail\")"))
(provide 'setup-mu4e)
;;; setup-mu4e.el ends here
|
