diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 15 |
2 files changed, 17 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8718b9d4ca..7f3dae659b 100644 --- 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 1c940bebc5..f3a396a94b 100644 --- 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)) |