[mew-dist 17987] Re: w3m m17n

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 17985] Re: w3m m17n

> http://emacs-w3m.namazu.org/ml/msg00848.html
> 
> のパッチをあてないとだめです。

ぐう。

> % w3m-m17n -halfdump -T text/html -o ext_halfdump=1 -o pre_conv=1 -o strict_iso2022=0 -O ISO-2022-JP -I ISO-2022-JP index.html
> 
> ぐらいがいいのかなぁ。

ぐう。

> # もともと、emacs-w3m は w3m にない機能をお願いしていろいろとオ
> # プション増やしてもらったりしていますので、その辺が大変 :-)
> # 特に halfdump は debug option みたいなものですので。

mew-w3m.el はこんな風にしてみました。

--かず

(defun mew-mime-text/html-w3m (begin end)
  "View Text/Html contents with w3m rendering output."
  (save-excursion
    (let ((w3m-display-inline-image mew-w3m-auto-insert-image)
	  w3m-force-redisplay	;; don't redraw
	  charset wcs)
      (mew-elet
       (setq charset (mew-charset-guess-region begin end))
       (if charset
	   (setq wcs (mew-charset-to-cs charset))
	 (setq wcs "ascii"))
       (let ((w3m-input-coding-system wcs)
	     (w3m-output-coding-system wcs)
	     (w3m-halfdump-command-arguments
	      (append (list "-I" charset "-O" charset
			    "-o" "ext_halfdump=1"
			    "-o" "pre_conv=1"
			    "-o" "strict_iso2022=0")
		      w3m-halfdump-command-arguments)))
	 (w3m-region begin end)))
      (put-text-property begin (1+ begin) 'w3m t))))