blob: b653221f74e6177f382e078bc3e9577f0cae18c1 (
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
|
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(require 'mu4e)
(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-use-fancy-chars t)
(setq mu4e-html2text-command "w3m -T text/html")
(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
(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"))))
(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)
; 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 "/usr/bin/msmtp")
(global-set-key (kbd "<f12>") 'mu4e)
|