gnus, notably gnus-refer-thread-use-search

1 files changed, 12 insertions, 1 deletions

diff --git a/w3m.org b/w3m.org
index ef1b105..da05463 100644
--- a/w3m.org
+++ b/w3m.org
@@ -69,7 +69,18 @@
    #+end_src
 * Email
   #+begin_src emacs-lisp
-    (setq mm-text-html-renderer 'w3m)
+   (defun jao-w3m-gnus-html-renderer (handle)
+     (let ((w3m-message-silent t)
+           (mm-w3m-safe-url-regexp nil)
+           (shr-use-colors nil)
+           (shr-use-fonts nil)
+           (fill-column (min (window-width) 110)))
+       (condition-case nil
+           (mm-inline-text-html-render-with-w3m handle)
+         (error (delete-region (point) (point-max))
+                (mm-shr handle)))))
+
+   (setq mm-text-html-renderer #'jao-w3m-gnus-html-renderer)
   #+end_src
 * Narrowing
   #+begin_src emacs-lisp