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

[Hideyuki SHIRAI ( 白井秀行 )]

From:  Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 18030] Re: Function mew-mime-text/html-w3m is not executable here.
Message-ID: <20010712.101546.50049399.shirai at example.com>
Date: Thu, 12 Jul 2001 10:15:46 +0900 (JST)

白井> だけど、試してみたら、mew-mime.el の mew-mime-text/html-ext() に
白井> 以下のパッチが必要でした。

もう一つおまけにこういうパッチの方がいいと思います。

-- 
白井秀行 (mailto:shirai at example.com)

@@ -195,7 +193,9 @@
       (set-buffer cache)
       (setq source (mew-buffer-substring begin end))
       (set-buffer (mew-buffer-message))
-      (mew-elet (insert source))
+      (mew-elet
+       (mew-erase-buffer)
+       (insert source))
       (funcall mew-prog-text/html-ext (point-min) (point-max))))
    ((stringp mew-prog-text/html-ext)
     (when (> end begin)
@@ -222,7 +222,8 @@
 	   (write-region begin end file nil 'no-msg)
 	   (message "Displaying Text/Html ... ")
 	   (apply (function mew-start-process-disp)
-		  mew-prog-text/html-ext nil mew-prog-text/html-ext arg))))))))
+		  mew-prog-text/html-ext nil mew-prog-text/html-ext arg)))))))
+  (mew-summary-display-postscript 'nohook))