105 lines
3.5 KiB
EmacsLisp
105 lines
3.5 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 "~/Mails")
|
|
(setq mu4e-attachment-dir "~/Mails/.Downloads")
|
|
(setq message-kill-buffer-on-exit t)
|
|
|
|
;; folders
|
|
(setq mu4e-drafts-folder "/draft")
|
|
(setq mu4e-sent-folder "/sent")
|
|
(setq mu4e-trash-folder "/trash")
|
|
(setq mu4e-refile-folder
|
|
(lambda (msg)
|
|
(cond
|
|
;; ;; messages to the mu mailing list go to the /mu folder
|
|
;; ((mu4e-message-contact-field-matches msg :to
|
|
;; "mu-discuss@googlegroups.com")
|
|
;; "/mu")
|
|
;; ;; messages sent directly to me go to /archive
|
|
;; ;; also `mu4e-user-mail-address-regexp' can be used
|
|
;; ((mu4e-message-contact-field-matches msg :to "me@example.com")
|
|
;; "/private")
|
|
;; ;; messages with football or soccer in the subject go to /football
|
|
;; ((string-match "football\\|soccer" (or (mu4e-message-field msg :subject) ""))
|
|
;; "/football")
|
|
;; everything else goes to /archive
|
|
;; important to have a catch-all at the end!
|
|
(t "/archive"))))
|
|
|
|
;; 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)
|
|
("/sent" . ?s)
|
|
("/spam" . ?m)
|
|
("/trash" . ?t)
|
|
))
|
|
|
|
;; 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;'")
|
|
;; auto convert to html when sending
|
|
(setq org-mu4e-convert-to-html t)
|
|
|
|
;; 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)
|