99 lines
3.2 KiB
EmacsLisp
99 lines
3.2 KiB
EmacsLisp
(require 'mu4e)
|
|
(require 'org-mu4e)
|
|
;; make mu4e default email client for emacs
|
|
(setq mail-user-agent 'mu4e-user-agent)
|
|
|
|
;; allow for updating mail using 'U' in the main view:
|
|
(setq mu4e-get-mail-command "offlineimap")
|
|
(setq mu4e-maildir "~/Maildir")
|
|
(setq mu4e-attachment-dir "~/Downloads")
|
|
(setq message-kill-buffer-on-exit t)
|
|
|
|
;; folders
|
|
(setq mu4e-drafts-folder "/[Gmail].Drafts")
|
|
(setq mu4e-sent-folder "/[Gmail].Sent Mail")
|
|
(setq mu4e-trash-folder "/[Gmail].Trash")
|
|
|
|
;; don't save message to Sent Messages, Gmail/IMAP takes care of this
|
|
(setq mu4e-sent-messages-behavior 'delete)
|
|
;; don't prompt for applying of marks, just apply
|
|
(setq mu4e-headers-leave-behavior 'apply)
|
|
;; no confirm on quit
|
|
(setq mu4e-confirm-quit nil)
|
|
|
|
;; date format
|
|
(setq mu4e-headers-date-format "%d/%b/%Y %H:%M")
|
|
|
|
;; fancy chars
|
|
(setq mu4e-use-fancy-chars t)
|
|
|
|
;; setup some handy shortcuts
|
|
;; you can quickly switch to your Inbox -- press ``ji''
|
|
;; then, when you want archive some messages, move them to
|
|
;; the 'All Mail' folder by pressing ``ma''.
|
|
(setq mu4e-maildir-shortcuts
|
|
'( ("/INBOX" . ?i)
|
|
("/[Gmail].Sent Mail" . ?s)
|
|
("/[Gmail].Trash" . ?t)
|
|
("/[Gmail].All Mail" . ?a)))
|
|
|
|
;; something about ourselves
|
|
(setq
|
|
user-mail-address "sylvain.benner@gmail.com"
|
|
user-full-name "Sylvain Benner"
|
|
message-signature "syl20bn")
|
|
|
|
;; alternatively, for emacs-24 you can use:
|
|
(setq message-send-mail-function 'smtpmail-send-it
|
|
smtpmail-stream-type 'starttls
|
|
smtpmail-default-smtp-server "smtp.gmail.com"
|
|
smtpmail-smtp-server "smtp.gmail.com"
|
|
smtpmail-smtp-service 587)
|
|
|
|
;; inline images
|
|
(setq mu4e-view-show-images t
|
|
mu4e-view-image-max-width 800)
|
|
;; use imagemagick, if available
|
|
(when (fboundp 'imagemagick-register-types)
|
|
(imagemagick-register-types))
|
|
|
|
;; prefere html version
|
|
(setq mu4e-view-prefer-html t)
|
|
;; html to text conversion program
|
|
;;(setq mu4e-html2text-command "html2text -utf8 -width 140")
|
|
(setq mu4e-html2text-command "html2markdown --body-width=0 | grep -v ' _place_holder;'")
|
|
|
|
;; form magnars
|
|
;; Start mu4e in fullscreen, immediately ping for new mail
|
|
(defun mu4e-up-to-date-status ()
|
|
(interactive)
|
|
(window-configuration-to-register :mu4e-fullscreen)
|
|
(mu4e)
|
|
(mu4e-update-mail-show-window)
|
|
(delete-other-windows))
|
|
|
|
;; form magnars
|
|
;; Restore previous window configuration
|
|
(defun mu4e-quit-session ()
|
|
"Restores the previous window configuration and kills the magit buffer"
|
|
(interactive)
|
|
(kill-buffer)
|
|
(jump-to-register :mu4e-fullscreen))
|
|
|
|
;; adapted from https://groups.google.com/d/topic/mu-discuss/ZXB72TR5GL0/discussion
|
|
(defun mu4e-msgv-action-view-in-browser (msg)
|
|
"View the body of the message in a web browser."
|
|
(interactive)
|
|
(let ((html (mu4e-msg-field (mu4e-message-at-point t) :body-html))
|
|
(tmpfile (format "%s/%d.html" temporary-file-directory (random))))
|
|
(unless html (error "No html part for this message"))
|
|
(with-temp-file tmpfile
|
|
(insert
|
|
"<html>"
|
|
"<head><meta http-equiv=\"content-type\""
|
|
"content=\"text/html;charset=UTF-8\">"
|
|
html))
|
|
(browse-url (concat "file://" tmpfile))))
|
|
(add-to-list 'mu4e-view-actions
|
|
'("View in browser" . mu4e-msgv-action-view-in-browser) t)
|