blob: 7d80a4b9d6a63372d0a3cb89123692f42beef3c1 (
about) (
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
|
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(require 'mu4e)
(require 'org-mu4e)
(require 'mu4e-contrib)
(setq shr-color-visible-luminance-min 60)
(setq mu4e-get-mail-command "offlineimap"
mu4e-compose-signature-auto-include nil
mu4e-compose-dont-reply-to-self t
mu4e-update-interval 120
mu4e-headers-include-related t)
(setq mu4e-view-show-addresses t)
(setq mu4e-use-fancy-chars t)
(setq mu4e-hide-index-messages t)
(setq mu4e-html2text-command 'mu4e-shr2text)
(setq mu4e-view-show-images t)
;; use imagemagick, if available
(when (fboundp 'imagemagick-register-types)
(imagemagick-register-types))
(setq mu4e-maildir "~/Mail" ;; top-level Maildir
mu4e-attachment-dir "~/Downloads"
mu4e-sent-folder "/private/Sent" ;; folder for sent messages
mu4e-drafts-folder "/private/Drafts" ;; unfinished messages
mu4e-trash-folder "/private/Trash" ;; trashed messages
mu4e-refile-folder "/private/Archives" ;; saved messages
user-mail-address "rekado@elephly.net")
(defvar my-mu4e-account-alist
'(("private"
(mu4e-sent-folder "/private/Sent")
(mu4e-drafts-folder "/private/Drafts")
(mu4e-trash-folder "/private/Trash")
(mu4e-refile-folder "/private/Archives"))))
(setq mu4e-user-mail-address-list
(mapcar (lambda (account) (cadr (assq 'user-mail-address account)))
my-mu4e-account-alist))
(defun my-mu4e-set-account ()
"Set the account for composing a message."
(let* ((account
(if mu4e-compose-parent-message
(let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir)))
(string-match "/\\(.*?\\)/" maildir)
(match-string 1 maildir))
(completing-read (format "Compose with account: (%s) "
(mapconcat #'(lambda (var) (car var))
my-mu4e-account-alist "/"))
(mapcar #'(lambda (var) (car var)) my-mu4e-account-alist)
nil t nil nil (caar my-mu4e-account-alist))))
(account-vars (cdr (assoc account my-mu4e-account-alist))))
(if account-vars
(mapc #'(lambda (var)
(set (car var) (cadr var)))
account-vars)
(error "No email account found"))))
(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account)
;; pretty quotes!
(add-hook 'message-mode-hook 'typo-mode)
(add-to-list 'mu4e-bookmarks
'("maildir:\"/private/INBOX\"" "Personal inbox" ?i))
(add-to-list 'mu4e-bookmarks
'("flag:flagged" "Flagged" ?f))
; set up email sending with msmtp
(setq mail-user-agent 'mu4e-user-agent)
(setq mail-specify-envelope-from t)
(setq mail-envelope-from 'header)
(setq message-kill-buffer-on-exit t)
(setq message-sendmail-envelope-from 'header)
(setq message-send-mail-function 'message-send-mail-with-sendmail)
;;use msmtp instead of sendmail
(setq sendmail-program "~/.guix-profile/bin/msmtp")
(global-set-key (kbd "<f12>") 'mu4e)
(setq mml2015-encrypt-to-self t)
(setq mml2015-sign-with-sender t)
|