shr table rendering fix

* shr.el (shr-tag-table): Allow rendering body-less tables
that have headers.

Backport:

(cherry picked from commit b05471e42c17e02c56c87d7599ada0c124a5fe09)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index a48d098fe2605229f1fea801379aed2fa8193fc8..dbf45b885daafbf582ca372dd068df25769fc4b7 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1582,7 +1582,7 @@ The preference is a float determined from `shr-prefer-media-type'."
         (shr-stylesheet (nconc (list (cons 'background-color bgcolor))
                                shr-stylesheet))
         (nheader (if header (shr-max-columns header)))
-        (nbody (if body (shr-max-columns body)))
+        (nbody (if body (shr-max-columns body) 0))
         (nfooter (if footer (shr-max-columns footer))))
     (if (and (not caption)
             (not header)