+(defvar shr-list-mode nil)
+
+(defun shr-tag-ul (cont)
+ (shr-ensure-paragraph)
+ (let ((shr-list-mode 'ul))
+ (shr-generic cont)))
+
+(defun shr-tag-ol (cont)
+ (let ((shr-list-mode 1))
+ (shr-generic cont)))
+
+(defun shr-tag-li (cont)
+ (shr-ensure-newline)
+ (if (numberp shr-list-mode)
+ (progn
+ (insert (format "%d " shr-list-mode))
+ (setq shr-list-mode (1+ shr-list-mode)))
+ (insert "* "))
+ (shr-generic cont))
+
+(defun shr-tag-br (cont)
+ (shr-ensure-newline)
+ (shr-generic cont))
+
+(defun shr-tag-h1 (cont)
+ (shr-heading cont 'bold 'underline))
+
+(defun shr-tag-h2 (cont)
+ (shr-heading cont 'bold))
+
+(defun shr-tag-h3 (cont)
+ (shr-heading cont 'italic))
+
+(defun shr-tag-h4 (cont)
+ (shr-heading cont))
+
+(defun shr-tag-h5 (cont)
+ (shr-heading cont))
+
+(defun shr-tag-h6 (cont)
+ (shr-heading cont))
+
+(defun shr-heading (cont &rest types)
+ (shr-ensure-paragraph)
+ (apply #'shr-fontize-cont cont types)
+ (shr-ensure-paragraph))
+