diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 43683051848..18cc915b111 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | 2010-12-09 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2010-12-09 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * shr.el (shr-tag-script): Ignore <script>. | 3 | * shr.el (shr-tag-script): Ignore <script>. |
| 4 | (shr-tag-label): Add <label> support. | ||
| 4 | 5 | ||
| 5 | 2010-12-09 Katsumi Yamaoka <yamaoka@jpl.org> | 6 | 2010-12-09 Katsumi Yamaoka <yamaoka@jpl.org> |
| 6 | 7 | ||
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 2dc85281ed4..692d1262348 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el | |||
| @@ -644,6 +644,10 @@ ones, in case fg and bg are nil." | |||
| 644 | (defun shr-tag-script (cont) | 644 | (defun shr-tag-script (cont) |
| 645 | ) | 645 | ) |
| 646 | 646 | ||
| 647 | (defun shr-tag-label (cont) | ||
| 648 | (shr-generic cont) | ||
| 649 | (shr-ensure-paragraph)) | ||
| 650 | |||
| 647 | (defun shr-tag-p (cont) | 651 | (defun shr-tag-p (cont) |
| 648 | (shr-ensure-paragraph) | 652 | (shr-ensure-paragraph) |
| 649 | (shr-indent) | 653 | (shr-indent) |