From: Julien Danjou <julien@danjou.info>
Date: Wed, 24 Nov 2010 17:22:50 +0000 (+0100)
Subject: shr: add shr-tag-title
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=962c43a028e130c1662314e9fe9291d5823c1fac

shr: add shr-tag-title

Signed-off-by: Julien Danjou <julien@danjou.info>
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43df18a22..aaffff2cc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
 	* shr.el (shr-insert-color-overlay): Replace deprecated syntax.
 	(shr-tag-body): Add background support.
 	(shr-descend): Add background support.
+	(shr-tag-title): Add.
 
 	* shr-color.el (shr-color-visible): Really return original background
 	if fixed.
diff --git a/lisp/shr.el b/lisp/shr.el
index e988d2fdd..73649a2d3 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -745,6 +745,9 @@ text will be inserted at start."
   (shr-ensure-newline)
   (insert (make-string shr-width shr-hr-line) "\n"))
 
+(defun shr-tag-title (cont)
+  (shr-heading cont 'bold 'underline))
+
 (defun shr-tag-font (cont)
   (let ((start (point))
         (color (cdr (assq :color cont))))