lisp/gnus/shr.el: (shr-tag-dl, shr-tag-dt, shr-tag-dd): Add support for <dl>, <dt...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8718b9d4ca749c7906c09ca08a1cca7f7d5b9dac..7f3dae659bc5f0bdc035666e2563574264264d82 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -3,6 +3,8 @@
        * shr.el (shr-tag-table): Insert the images after the table, so that
        they're not covered by the table colourisation, which often looked
        awkward.
+       (shr-tag-dl, shr-tag-dt, shr-tag-dd): Add support for <dl>, <dt> and
+       <dd>.
 
 2013-06-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 1c940bebc5099a7b1627bbf2686259b639cfe793..f3a396a94b5579b223bc4c7658f9e8559cda86e9 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -1139,6 +1139,21 @@ ones, in case fg and bg are nil."
     (shr-generic cont))
   (shr-ensure-paragraph))
 
+(defun shr-tag-dl (cont)
+  (shr-ensure-paragraph)
+  (shr-generic cont)
+  (shr-ensure-paragraph))
+
+(defun shr-tag-dt (cont)
+  (shr-ensure-newline)
+  (shr-generic cont)
+  (shr-ensure-newline))
+
+(defun shr-tag-dd (cont)
+  (shr-ensure-newline)
+  (let ((shr-indentation (+ shr-indentation 4)))
+    (shr-generic cont)))
+
 (defun shr-tag-ul (cont)
   (shr-ensure-paragraph)
   (let ((shr-list-mode 'ul))