(shr-tag-base): Protect against base specs that are degenerate.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4e2db3..50d2180 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2013-06-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-insert-table): Respect border-collapse: collapse.
+       (shr-tag-base): Protect against base specs that are degenerate.
 
        * eww.el (eww-convert-widgets): Put `help-echo' on input fields so that
        we can navigate to them.

diff --git a/lisp/shr.el b/lisp/shr.el
index 92e6250..16c2936 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -1016,7 +1016,9 @@ ones, in case fg and bg are nil."
       plist)))
 
 (defun shr-tag-base (cont)
-  (setq shr-base (shr-parse-base (cdr (assq :href cont))))
+  (let ((base (cdr (assq :href cont))))
+    (when base
+      (setq shr-base (shr-parse-base base))))
   (shr-generic cont))
 
 (defun shr-tag-a (cont)