blob: f0258afa3ea3ac80983d325aa23245b63728af5f (
plain) (
blame)
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
|
(use-package mu4e
:ensure nil ;; package is installed outside emacs
:load-path "/usr/local/share/emacs/site-lisp/mu/mu4e"
:bind (("C-c m" . mu4e))
:init
;; use mu4e as mail user agent
(setq mail-user-agent 'mu4e-user-agent)
;; kill buffer after sending message
(setq message-kill-buffer-on-exit t)
;; use format=flowed when sending message
(setq mu4e-compose-format-flowed t)
;; always show addresses
(setq mu4e-view-show-addresses t)
;; disable threads by default
(setq mu4e-headers-show-threads nil)
;; header list date format
(setq mu4e-headers-date-format "%Y-%m-%d %H:%M")
;; adjust date field width to fit the above format
(setq mu4e-headers-fields '((:human-date . 18)
(:flags . 6)
(:mailing-list . 10)
(:from . 22)
(:subject)))
;; fastmail folders
(setq mu4e-sent-folder "/Sent"
mu4e-drafts-folder "/Drafts"
mu4e-trash-folder "/Trash"
mu4e-refile-folder "/Archive")
;; mbsync downloads email
(setq mu4e-get-mail-command "mbsync -a")
;; change filename when moving (recommended when using mbsync)
(setq mu4e-change-filenames-when-moving t)
;; shortcuts
(setq mu4e-maildir-shortcuts '(("/INBOX" . ?i)
("/Archive" . ?a)
("/Sent" . ?s)
("/Trash" . ?t)))
;; increase readability when using dark theme
(setq shr-color-visible-luminance-min 80)
:config
;; use email address from git
(when (executable-find "git")
(setq user-full-name (string-trim (shell-command-to-string
"git config --global --get user.name"))
user-mail-address (string-trim (shell-command-to-string
"git config --global --get user.email"))))
;; delete moves email to trash
:bind (:map mu4e-headers-mode-map ("d" . "mt")
:map mu4e-view-mode-map ("d" . "mt")))
(use-package org-mu4e
:ensure nil ;; package is installed outside emacs
:load-path "/usr/local/share/emacs/site-lisp/mu/mu4e"
:after mu4e)
(use-package smtpmail
:ensure nil ;; package is bundled with emacs
:init
;; use smtpmail
(setq send-mail-function 'smtpmail-send-it)
;; smtp server
(setq smtpmail-smtp-server "smtp.fastmail.com"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl))
(provide 'init-mail)
|