summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-03-26 22:42:41 +0000
committerjao <jao@gnu.org>2021-03-26 22:42:41 +0000
commit288f5e293d1952707d81037409da2f6011c4a81d (patch)
tree3d54a3baef23e469af05397bd37a02d1c9153e9d
parent281dd7bd39d64254dc161306804b251def2adafc (diff)
downloadelibs-288f5e293d1952707d81037409da2f6011c4a81d.tar.gz
elibs-288f5e293d1952707d81037409da2f6011c4a81d.tar.bz2
shr as mm-html-renderer with wider fill column
-rw-r--r--gnus.org15
1 files changed, 9 insertions, 6 deletions
diff --git a/gnus.org b/gnus.org
index 7b22e37..5a5fefa 100644
--- a/gnus.org
+++ b/gnus.org
@@ -504,15 +504,18 @@
#+BEGIN_SRC emacs-lisp
;; use w3m for html mail
(defun jao-gnus-html-renderer (handle)
- (let ((w3m-message-silent t))
- (condition-case nil
- (mm-inline-text-html-render-with-w3m handle)
- (error (delete-region (point) (point-max))
- (mm-shr handle)))))
+ (let ((w3m-message-silent t)
+ (fill-column (min (window-width) 110)))
+ (mm-shr handle)
+ ;; (condition-case nil
+ ;; (mm-inline-text-html-render-with-w3m handle)
+ ;; (error (delete-region (point) (point-max))
+ ;; (mm-shr handle)))
+ ))
(setq gnus-button-url 'browse-url-generic
gnus-inhibit-images t
- mm-text-html-renderer 'shr ;; 'jao-gnus-html-renderer ;; 'w3m ;; 'shr
+ mm-text-html-renderer 'jao-gnus-html-renderer ;; 'w3m ;; 'shr
shr-use-colors nil
shr-use-fonts nil
mm-w3m-safe-url-regexp nil