From 823a9f9137e78f0142b49262606721b55e0156d4 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Thu, 9 Dec 2010 23:29:48 +0100
Subject: [PATCH] Add <label> support.

---
 lisp/ChangeLog | 1 +
 lisp/shr.el    | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 873e9848b..ed5d91d27 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-12-09  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* shr.el (shr-tag-script): Ignore <script>.
+	(shr-tag-label): Add <label> support.
 
 2010-12-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
diff --git a/lisp/shr.el b/lisp/shr.el
index 2dc85281e..692d12623 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -644,6 +644,10 @@ ones, in case fg and bg are nil."
 (defun shr-tag-script (cont)
   )
 
+(defun shr-tag-label (cont)
+  (shr-generic cont)
+  (shr-ensure-paragraph))
+
 (defun shr-tag-p (cont)
   (shr-ensure-paragraph)
   (shr-indent)
-- 
2.11.4.GIT