Make mu4e html email friendly. Use html2text shell command.

This commit is contained in:
Ivan Malison 2014-12-22 13:09:03 -05:00
parent a38521ec4d
commit 9ce601490b

10
init.el
View File

@ -396,7 +396,9 @@ The current directory is assumed to be the project's root otherwise."
(setq guide-key/recursive-key-sequence-flag t) (setq guide-key/recursive-key-sequence-flag t)
(setq guide-key/popup-window-position 'bottom))) (setq guide-key/popup-window-position 'bottom)))
(use-package jump-char :ensure t) (use-package jump-char
:bind (("C-;" . jump-char-forward))
:ensure t)
(use-package ace-jump-mode (use-package ace-jump-mode
:ensure t :ensure t
@ -789,7 +791,9 @@ The current directory is assumed to be the project's root otherwise."
;; show images ;; show images
(setq mu4e-show-images t) (setq mu4e-show-images t)
;; Try to display html as text ;; Try to display html as text
(setq mu4e-view-prefer-html t) (setq mu4e-view-prefer-html nil)
(setq mu4e-html2text-command "html2text -width 80 -nobs -utf8")
;; use imagemagick, if available ;; use imagemagick, if available
(when (fboundp 'imagemagick-register-types) (when (fboundp 'imagemagick-register-types)
@ -1429,7 +1433,7 @@ marking if it still had that."
(blink-cursor-mode -1) (blink-cursor-mode -1)
;; make whitespace-mode use just basic coloring ;; make whitespace-mode use just basic coloring
(setq whitespace-style (quote (spaces tabs newline ;;space-mark (setq whitespace-style (quote (spaces tabs newline space-mark
tab-mark newline-mark))) tab-mark newline-mark)))
(setq whitespace-display-mappings (setq whitespace-display-mappings
'((space-mark 32 [183] [46]) '((space-mark 32 [183] [46])