shr.el (shr-tag-div): Added.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5d4abe96fbbbfc10a8bc1e6685119bd72dfd9523..b34a8e6bd9449947e84a60feec963fb44ad89541 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * shr.el (shr-tag-div): Added.
+
 2010-10-25  Julien Danjou  <julien@danjou.info>
 
        * gnus-util.el: Remove `gnus-with-local-quit'.

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 36e93338cb1b3f7cc575ef7b2cfb33a4c80bbe7c..852f6cc826c83a2a533bad72d3f817e8a2a29f8e 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -444,6 +444,12 @@ Return a string with image data."
   (shr-generic cont)
   (shr-ensure-paragraph))
 
+(defun shr-tag-div (cont)
+  (shr-ensure-newline)
+  (shr-indent)
+  (shr-generic cont)
+  (shr-ensure-newline))
+
 (defun shr-tag-b (cont)
   (shr-fontize-cont cont 'bold))