shr.el: folding Japanese text

[Katsumi Yamaoka <yamaoka@jpl.org>]

Hi,

Could you see articles in the gwene.jp.itmedia.news.bursts
newsgroup?  You may see some aren't folded and some are folded
uglily.  There's no concept of the word wrapping in Japanese.
Normally there's no space between words.  A word may be folded
in the middle of it.  Is it funny?  But it's our custom. ;-)
I guess that Korean text and Chinese text are similar.

The following is a quick hack that satisfies me so-so.  For the
moment I don't know how we can switch it for Latin text and
others, though.

(defun shr-insert (text)
  (when (eq shr-state 'image)
    (insert "\n")
    (setq shr-state nil))
  (unless (string-equal text "\n")
    (let ((start (point))
	  nls)
      (insert text)
      (fill-region start (point))
      (goto-char start)
      (skip-chars-forward "\n")
      (setq nls (skip-chars-backward "\n"))
      (cond ((bobp)
	     (delete-char (- nls)))
	    ((< nls -2)
	     (delete-char (- -2 nls)))))
    (goto-char (point-max))))

Regards,