diff options
Diffstat (limited to 'lisp/email.el')
-rw-r--r-- | lisp/email.el | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/lisp/email.el b/lisp/email.el new file mode 100644 index 0000000..31cbfca --- /dev/null +++ b/lisp/email.el @@ -0,0 +1,63 @@ +(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-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) |