* shr.el (shr-find-elements): New function.
(shr-tag-table): Put all the images after the table.
+ (shr-tag-table): Really inhibit images inside the table.
* mm-decode.el (mm-shr): Bind shr-blocked-images to
gnus-blocked-images.
(shr-ensure-paragraph)
(setq cont (or (cdr (assq 'tbody cont))
cont))
- (let* ((columns (shr-column-specs cont))
+ (let* ((shr-inhibit-images t)
+ (columns (shr-column-specs cont))
(suggested-widths (shr-pro-rate-columns columns))
(sketch (shr-make-table cont suggested-widths))
- (sketch-widths (shr-table-widths sketch (length suggested-widths)))
- (shr-inhibit-images t))
+ (sketch-widths (shr-table-widths sketch (length suggested-widths))))
(shr-insert-table (shr-make-table cont sketch-widths t) sketch-widths))
(dolist (elem (shr-find-elements cont 'img))
(shr-tag-img (cdr elem))))