From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 10 Jun 2013 08:52:34 +0000 (+0200)
Subject: Allow <base> to have contents.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=550aadf49faff7e33c4f6790013a81ceb0b52e2a;p=gnus

Allow <base> to have contents.
---

diff --git a/lisp/shr.el b/lisp/shr.el
index 9284da4c4..6e0aa26e3 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -945,7 +945,8 @@ ones, in case fg and bg are nil."
       plist)))
 
 (defun shr-tag-base (cont)
-  (setq shr-base (cdr (assq :href cont))))
+  (setq shr-base (cdr (assq :href cont)))
+  (shr-generic cont))
 
 (defun shr-tag-a (cont)
   (let ((url (cdr (assq :href cont)))