(shr-tag-hr): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0762eb2..50e6310 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2010-10-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (require): Require cl when compiling.
 2010-10-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (require): Require cl when compiling.

+       (shr-tag-hr): New function.

 
        * nnimap.el (nnimap-update-info): Remove double setting of high.
        (nnimap-update-info): Don't ignore groups that have no UIDNEXT.  This
 
        * nnimap.el (nnimap-update-info): Remove double setting of high.
        (nnimap-update-info): Don't ignore groups that have no UIDNEXT.  This

diff --git a/lisp/shr.el b/lisp/shr.el
index e5b997e..bb25a6c 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -449,6 +449,10 @@ Return a string with image data."
 (defun shr-tag-h6 (cont)
   (shr-heading cont))
 
 (defun shr-tag-h6 (cont)
   (shr-heading cont))
 

+(defun shr-tag-hr (cont)
+  (shr-ensure-newline)
+  (insert (make-string shr-width ?-) "\n"))
+

 ;;; Table rendering algorithm.
 
 ;; Table rendering is the only complicated thing here.  We do this by
 ;;; Table rendering algorithm.
 
 ;; Table rendering is the only complicated thing here.  We do this by