[mew-dist 29339] Re: テキスト付きPDFをinlineで読むには

[Shuichi KITAGUCHI]

北口です。

> SPC を押すと pdftotext を使って Message バッファに表示し、

Windowsでも問題なく動作するようなので、mew-win32.elへの
パッチを添付します。
# バイナリはxpdfのサイトにあるものを使っています。

あと、

> C-cC-e で外部プログラムを表示するようにしてみました。

の手順がバッファに表示されないのも何なので、mew-mime.elの
方もちょっといじってみたのですが、どうでしょうか?


--
Shuichi KITAGUCHI // kit at example.com / ki at example.com
-------------- next part --------------
diff --git a/mew-mime.el b/mew-mime.el
index 97863ac..30f3500 100644
--- a/mew-mime.el
+++ b/mew-mime.el
@@ -590,7 +590,7 @@
     (if (not doit)
 	(progn
 	  (mew-elet (insert "\n"))
-	  (mew-mime-part-messages nil))
+	  (mew-mime-part-messages t))
       (setq file1 (mew-make-temp-name))
       (with-current-buffer cache
 	(mew-flet
diff --git a/mew-win32.el b/mew-win32.el
index a4525e7..01b3447 100644
--- a/mew-win32.el
+++ b/mew-win32.el
@@ -132,7 +132,9 @@
 (defvar mew-prog-delivery-status 'mew-mime-text/plain)
 (defvar mew-prog-postscript      mew-w32-exec)
 (defvar mew-prog-pgp-keys        '(mew-mime-pgp-keys mew-mime-pgp-keys-ext))
-(defvar mew-prog-pdf             mew-w32-exec)
+(defvar mew-prog-application/pdf "pdftotext")
+(defvar mew-prog-pdf-ext         mew-w32-exec)
+(defvar mew-prog-pdf             `(mew-mime-application/pdf ,mew-prog-pdf-ext))
 (defvar mew-prog-xml2            '(mew-mime-application/xml
 				   mew-mime-application/xml-ext))
 (defvar mew-prog-oasys           mew-w32-exec)