[Mew-dist 03630] using w3.el patch for text/html

[SAKAI Kiyotaka]

Text/Html の Contents に対して、w3.el が正しく使えるようにするためのパッ
チです。

w3-4.0pre.14 で動作確認をしましたが、

  (autoload 'w3-region "w3-display" nil t)
  (setq mew-prog-text/html 'w3-region)

の設定だけで使うことができます。

先に送ったパッチの後に当てて下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-mime.el
===================================================================
RCS file: /home/cvsroot/mew-1.93b12/mew-mime.el,v
retrieving revision 1.2
diff -u -r1.2 mew-mime.el
--- mew-mime.el	1998/02/02 02:25:16	1.2
+++ mew-mime.el	1998/02/02 08:49:07
@@ -160,7 +160,13 @@
                  "\\<mew-summary-mode-map>\\[mew-summary-execute-external]."))
       (cond
        ((and (symbolp mew-prog-text/html) (fboundp mew-prog-text/html))
-	(funcall mew-prog-text/html begin end params))
+	(let (source)
+	  (set-buffer (mew-current-get 'cache))
+	  (setq source (buffer-substring begin end))
+	  (set-buffer (mew-buffer-message))
+	  (mew-erase-buffer)
+	  (insert source)
+	  (funcall mew-prog-text/html (point-min) (point-max))))
        ((stringp mew-prog-text/html)
 	(if (> end begin)
 	    (let ((file (mew-make-temp-name))) ;; xxx append ".html"?