diff options
| author | jao <jao@gnu.org> | 2021-03-26 22:42:41 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-03-26 22:42:41 +0000 |
| commit | 288f5e293d1952707d81037409da2f6011c4a81d (patch) | |
| tree | 3d54a3baef23e469af05397bd37a02d1c9153e9d | |
| parent | 281dd7bd39d64254dc161306804b251def2adafc (diff) | |
| download | elibs-288f5e293d1952707d81037409da2f6011c4a81d.tar.gz elibs-288f5e293d1952707d81037409da2f6011c4a81d.tar.bz2 | |
shr as mm-html-renderer with wider fill column
| -rw-r--r-- | gnus.org | 15 |
1 files changed, 9 insertions, 6 deletions
@@ -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 |