shr.el (shr-tag-label): Add <label> support.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4368305184807dc03bd70b7926907cec738ca2cc..18cc915b11187f0bc5de5cd50ecbf976cf0d1f5e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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/gnus/shr.el b/lisp/gnus/shr.el
index 2dc85281ed473f99a00a668996df656af4f5b5e2..692d126234877690bb3ed77070ceaddfbcc254bd 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/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)