diff options
Diffstat (limited to 'lisp/gnus/shr.el')
| -rw-r--r-- | lisp/gnus/shr.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 06abde9e38..1c940bebc5 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -1248,13 +1248,7 @@ ones, in case fg and bg are nil." (frame-width)) (setq truncate-lines t)) ;; Then render the table again with these new "hard" widths. - (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 - ;; into the tables. - (when (zerop shr-table-depth) - (dolist (elem (shr-find-elements cont 'img)) - (shr-tag-img (cdr elem))))) + (shr-insert-table (shr-make-table cont sketch-widths t) sketch-widths))) (defun shr-tag-table (cont) (shr-ensure-paragraph) @@ -1318,7 +1312,13 @@ ones, in case fg and bg are nil." body)))))) (when bgcolor (shr-colorize-region start (point) (cdr (assq 'color shr-stylesheet)) - bgcolor)))) + bgcolor)) + ;; Finally, insert all the images after the table. The Emacs buffer + ;; model isn't strong enough to allow us to put the images actually + ;; into the tables. + (when (zerop shr-table-depth) + (dolist (elem (shr-find-elements cont 'img)) + (shr-tag-img (cdr elem)))))) (defun shr-find-elements (cont type) (let (result) |