[mew-dist 18067] Re: Function mew-mime-text/html-w3m is not executable here.

[Kazu Yamamoto ( 山本和彦 )]

こうしてみましたが、charset を変換しないので、日本語の HTML だと、ちっ
とも嬉しくありませんね。

--かず

Index: mew-mime.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-mime.el,v
retrieving revision 1.27
diff -c -r1.27 mew-mime.el
*** mew-mime.el	2001/07/12 11:56:56	1.27
--- mew-mime.el	2001/07/13 04:07:35
***************
*** 193,200 ****
        (set-buffer cache)
        (setq source (mew-buffer-substring begin end))
        (set-buffer (mew-buffer-message))
!       (mew-elet (insert source))
!       (funcall mew-prog-text/html-ext (point-min) (point-max))))
     ((stringp mew-prog-text/html-ext)
      (when (> end begin)
        (let ((file (format "%s.html" (mew-make-temp-name)))
--- 193,203 ----
        (set-buffer cache)
        (setq source (mew-buffer-substring begin end))
        (set-buffer (mew-buffer-message))
!       (mew-elet
!        (mew-erase-buffer)
!        (insert source)
!        (funcall mew-prog-text/html-ext (point-min) (point-max))
!        (mew-summary-display-postscript 'nohook))))
     ((stringp mew-prog-text/html-ext)
      (when (> end begin)
        (let ((file (format "%s.html" (mew-make-temp-name)))