[Mew-dist 17171] Re: wv

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 17170] Re: wv

> これが手に入ったら、Excel/PowerPoint も真似をして html で見られ
> るようにする予定なのだけど、

差し上げる程のものではありませんが... :-)

(setq mew-prog-msword '(mew-mime-application/msword-view () nil))

(defun mew-mime-application/msword-view (cache begin end &optional parameter)
  (let ((file1 (mew-make-temp-name)) file2)
    (save-excursion
      (set-buffer cache)
      (mew-flet
       (write-region begin end file1 nil 'no-msg)))
    (setq file2 (mew-make-temp-name))
    (call-process "wvHtml" nil nil nil file1 file2)
    (mew-frwlet
     'utf-8 mew-cs-dummy
     (insert-file-contents file2))
    (if (file-exists-p file1) (delete-file file1))
    (if (file-exists-p file2) (delete-file file2))
    (w3m-region (point-min) (point-max))))

(require 'un-define) して下さい。

--かず