ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cleaned up old code from mu4e compose hook

This commit is contained in:
petrucci4prez 2018-09-16 23:53:43 -04:00
parent 2575f7e154
commit 1e125a5390
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
conf.org
View File

@ -1781,15 +1781,13 @@ By default the included gnus-dired package does not understan mu4e, so override
(if (file-exists-p "/usr/bin/html2text") (if (file-exists-p "/usr/bin/html2text")
"html2text --ignore-emphasis --images-to-alt --body-width=0" "html2text --ignore-emphasis --images-to-alt --body-width=0"
'mu4e-shr2text))) 'mu4e-shr2text)))
(if (and (member compose-type '(reply forward)) html) (when (and html mu4e-view-prefer-html (member compose-type '(reply forward)))
(progn
;; hackity hack, since the normal mu4e-message-body-text function ;; hackity hack, since the normal mu4e-message-body-text function
;; does not render the desired html, do it here and force the ;; does not render the desired html, do it here and force the
;; aforementioned function to only look at text by removing ;; aforementioned function to only look at text by removing
;; the html ;; the html
(plist-put msg :body-txt (mu4e~html2text-shell msg mu4e-html2text-command)) (plist-put msg :body-txt (mu4e~html2text-shell msg mu4e-html2text-command))
(plist-put msg :body-html nil)) (plist-put msg :body-html nil)))))
(message "nada")))))
#+END_SRC #+END_SRC
*** smtp *** smtp
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp