fixed forward/reply quoting using html2text

This commit is contained in:
petrucci4prez 2018-09-16 01:39:21 -04:00
parent 04ff5e500e
commit 4883d7ecb1
1 changed files with 22 additions and 0 deletions

View File

@ -1802,6 +1802,28 @@ make sizes human readable
mu4e-headers-time-format "%R" mu4e-headers-time-format "%R"
mu4e-use-fancy-chars nil) mu4e-use-fancy-chars nil)
#+END_SRC #+END_SRC
*** quoting
#+BEGIN_SRC emacs-lisp
(setq
mu4e-compose-pre-hook
(lambda ()
(let* ((msg mu4e-compose-parent-message)
(html (and msg (plist-get msg :body-html)))
;; oops, mu4e screwed up
(mu4e-html2text-command
(if (file-exists-p "/usr/bin/html2text")
"html2text --ignore-emphasis --images-to-alt --body-width=0"
'mu4e-shr2text)))
(if (and (member compose-type '(reply forward)) html)
(progn
;; hackity hack, since the normal mu4e-message-body-text function
;; does not render the desired html, do it here and force the
;; aforementioned function to only look at text by removing
;; the html
(plist-put msg :body-txt (mu4e~html2text-shell msg mu4e-html2text-command))
(plist-put msg :body-html nil))
(message "nada")))))
#+END_SRC
*** smtp *** smtp
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(require 'smtpmail) (require 'smtpmail)