diff options
Diffstat (limited to 'lisp/gnus/shr.el')
-rw-r--r-- | lisp/gnus/shr.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index b5e3b4246a..c93357efd2 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -115,7 +115,6 @@ cid: URL as the argument.") (defvar shr-base nil) (defvar shr-ignore-cache nil) (defvar shr-external-rendering-functions nil) -(defvar shr-preliminary-table-render nil) (defvar shr-map (let ((map (make-sparse-keymap))) @@ -158,6 +157,7 @@ DOM should be a parse tree as generated by (shr-state nil) (shr-start nil) (shr-base nil) + (shr-preliminary-table-render 0) (shr-width (or shr-width (window-width)))) (shr-descend (shr-transform-dom dom)) (shr-remove-trailing-whitespace start (point)))) @@ -1167,7 +1167,6 @@ ones, in case fg and bg are nil." (setq cont (or (cdr (assq 'tbody cont)) cont)) (let* ((shr-inhibit-images t) - (shr-preliminary-table-render t) (shr-table-depth (1+ shr-table-depth)) (shr-kinsoku-shorten t) ;; Find all suggested widths. @@ -1189,7 +1188,6 @@ ones, in case fg and bg are nil." (frame-width)) (setq truncate-lines t)) ;; Then render the table again with these new "hard" widths. - (setq shr-preliminary-table-render nil) (shr-insert-table (shr-make-table cont sketch-widths t) sketch-widths)) ;; Finally, insert all the images after the table. The Emacs buffer ;; model isn't strong enough to allow us to put the images actually |