[mew-dist 19689] patch to use wv-0.7.0

[SAKAI Kiyotaka]

wvHtml コマンドですが、従来は

  % wvHtml /path/word-file /path/html-file

という書式で使用しましたが、wv-0.7.0 では

  % wvHtml --targetdir=/path /path/word-file html-file

という書式で使用しなければならず、従来の書式ではエラーとなってしまいま
す。

そこで、この書式に対応するためのパッチです。

あと、xlhtml-0.3 ではコマンド名が xlHtml から xlhtml に変更になってい
ますので、mew-prog-application/msexcel のデフォルト値も変更した方がい
いかもしれません。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: mew-mime.el
===================================================================
RCS file: /cvsmew/mew/mew-mime.el,v
retrieving revision 1.41
diff -u -r1.41 mew-mime.el
--- mew-mime.el	2001/10/30 02:57:50	1.41
+++ mew-mime.el	2001/11/21 09:17:16
@@ -572,8 +572,13 @@
      (mew-mime-application/mspowerpoint cache begin end parameter)
      (mew-summary-display-postscript 'nohook))))
 
+(defun mew-basename (filename)
+  (if (string-match "[^/]*$" filename)
+      (substring filename (match-beginning 0))
+    filename))
+
 (defun mew-mime-application/msoffice (prog cache begin end &optional parameter)
-  (let ((doit t) file1 file2)
+  (let ((doit t) file1 file2 arg)
     (condition-case nil
 	(require 'un-define)
       (file-error
@@ -601,7 +606,8 @@
       (if (eq prog mew-prog-application/msword)
  	  (mew-frwlet
  	   'utf-8 mew-cs-dummy
- 	   (call-process prog nil nil nil file1 file2)
+	   (setq arg (concat "--targetdir=" mew-temp-dir))
+	   (call-process prog nil nil nil arg file1 (mew-basename file2))
 	   (let ((buffer-file-coding-system)) ;; to prevent the side effect
 	     (insert-file-contents file2)))
 	(mew-frwlet