[Emacs-diffs] trunk r113047: lisp/gnus/shr.el: (shr-tag-dl, shr-tag-dt, shr-tag-dd): Add support for <dl>, <dt> and <dd>

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113047
revision-id: address@hidden
parent: address@hidden
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-18 11:24:16 +0000
message:
  lisp/gnus/shr.el: (shr-tag-dl, shr-tag-dt, shr-tag-dd): Add support for <dl>, 
<dt> and <dd>
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/shr.el               shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-18 10:46:53 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-18 11:24:16 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2013-06-18 10:46:53 +0000
+++ b/lisp/gnus/shr.el  2013-06-18 11:24:16 +0000
@@ -1139,6 +1139,21 @@
     (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))