[Mew-Win32 00123] 1.93b10.

[Shuichi Kitaguchi]

mew-ext-prog-url を追加したと思ったら mew-ext-prog-url-args が
増えていたので、mew-win32.el の修正パッチです。

ついでに mew-mime.el に下に添付のパッチを適用すると text/html な
メールもブラウザで見れるようになって Netscape Messager や Outlook
も怖くなくなります。が、まじめなパッチじゃないのでいい加減です。

ちなみにどちらも致命的なものじゃないので、当てなくても支障は
ほとんどないはずです。


--==| Shuichi Kitaguchi : shuuic-k at example.com |
    |     / kit at example.com / shkit at example.com |==--

--- mew-win32.el.original	Wed Jan 28 12:39:18 1998
+++ mew-win32.el	Wed Jan 28 15:32:22 1998
@@ -26,7 +26,10 @@
 
 (setq mew-prog-uncompface  "uncompface.exe")
 
-(setq mew-ext-prog-url     mew-w32-exec)
+(setq mew-prog-text/html     mew-w32-exec)
+(setq mew-prog-text/html-arg nil)
+(setq mew-ext-prog-url       mew-w32-exec)
+(setq mew-ext-prog-url-args  nil)
 
 ;; browse-url.
 (defun browse-url-client (url)

--- mew-mime.el.original	Wed Jan 28 12:39:06 1998
+++ mew-mime.el	Wed Jan 28 13:48:12 1998
@@ -135,7 +135,7 @@
     (funcall mew-prog-text/html begin end params))
    ((stringp mew-prog-text/html)
     (if (> end begin)
-	(let ((file (mew-make-temp-name)) ;; xxx append ".html"?
+	(let ((file (format "%s.html" (mew-make-temp-name))) ;; xxx append ".html"?
 	      (buf (current-buffer)))
 	  (save-excursion
 	    (set-buffer (mew-current-get 'cache))