[mew-dist 21025] Re: mew-summary-x-face

[Tatsuya Kinoshita]

In message [mew-dist 21020], on Mon, 10 Jun 2002,
Kazu Yamamoto <kazu at example.com> wrote:

> > mew-x-face-prog等のデフォルト値には、できればフリーソフトウェア
> > を指定してほしい。("xv" -> "display", "acroread" -> "xpdf",
> > "mpeg_play" -> "xine", "netscape" -> "mozilla", "pgp" -> "gpg")
> 
> 長い間、xv を display に変更したいという野望は持っていたのですが、混乱
> を避けるためにずっと手付かずでした。
> 
> 強い反対がないのであれば、変更はやぶさかではありません。

私が使っている設定を元にして、パッチを作ってみました。

P.S.

MPEGの特許問題はxineやplaympegでも同様なのかも……。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur mew.orig/info/mew.texi mew/info/mew.texi
--- mew.orig/info/mew.texi	Mon May 27 22:06:07 2002
+++ mew/info/mew.texi	Mon Jun 10 21:49:39 2002
@@ -7812,7 +7812,7 @@
 
 
 @ifset jp
-単に Mew をインストールした状態では、Text/Html を表示するには "netscape" 
+単に Mew をインストールした状態では、Text/Html を表示するには "mozilla" 
 のような外部アプリケーションが必要です。この場合 Text/Html は、単にパー
 トとして、あるいはメッセージの本文として扱われ、外部アプリケーションを起
 動させる説明が Message モードに表示されています。それぞれ、パート、およ
@@ -7821,7 +7821,7 @@
 (ヘッダを除いて)本文のみが外部アプリケーションに渡されます。
 @end ifset
 @ifset us
-If you just install Mew, an external application like "netscape" is
+If you just install Mew, an external application like "mozilla" is
 necessary to display Text/Html. In this situation, Text/Html is treated
 as a part or a body of a message, and explanation to execute an external
 application is shown in Message mode. Typing @samp{C-cC-e} on the part
diff -ur mew.orig/mew-unix.el mew/mew-unix.el
--- mew.orig/mew-unix.el	Mon Jun 10 20:07:59 2002
+++ mew/mew-unix.el	Mon Jun 10 21:49:39 2002
@@ -19,13 +19,13 @@
 (defvar mew-prog-audio2
   `(,mew-prog-shell (,mew-prog-shell-arg "cat < /dev/audio") nil))
 (defvar mew-prog-image           '(mew-mime-image/* mew-mime-image/*-ext))
-(defvar mew-prog-video           '("mpeg_play" () t))
+(defvar mew-prog-video           '("xine" ("--auto-play") t))
 (defvar mew-prog-rfc822          'mew-mime-message/rfc822)
 (defvar mew-prog-rfc822-headers  'mew-mime-text/rfc822-headers)
 (defvar mew-prog-external-body   '(mew-mime-external-body mew-mime-external-body-ext))
 (defvar mew-prog-delivery-status 'mew-mime-text/plain)
 (defvar mew-prog-postscript      '("gv" ("-geometry" "+0+0") t))
-(defvar mew-prog-pdf             '("acroread" ("-geometry" "+0+0") t))
+(defvar mew-prog-pdf             '("xpdf" ("-geometry" "+0+0") t))
 (defvar mew-prog-xml2            '(mew-mime-application/xml
 				   mew-mime-application/xml-ext))
 (defvar mew-prog-pgp-keys        '(mew-mime-pgp-keys mew-mime-pgp-keys-ext))
@@ -47,22 +47,22 @@
 (defvar mew-format-xml  "%s.xml")
 
 (defvar mew-prog-text/html         'mew-mime-text/html-w3m) ;; See w3m.el
-(defvar mew-prog-text/html-ext     "netscape")
+(defvar mew-prog-text/html-ext     "mozilla")
 (defvar mew-prog-text/html-ext-arg '("-remote" "openFile(%s)")
   "%s will be replaced with a file name.")
 
 (defvar mew-prog-text/xml         'mew-mime-text/html-w3m) ;; See w3m.el
-(defvar mew-prog-text/xml-ext     "netscape")
+(defvar mew-prog-text/xml-ext     "mozilla")
 (defvar mew-prog-text/xml-ext-arg '("-remote" "openFile(%s)")
   "%s will be replaced with a file name.")
 
 (defvar mew-prog-application/xml         nil)
-(defvar mew-prog-application/xml-ext     "netscape")
+(defvar mew-prog-application/xml-ext     "mozilla")
 (defvar mew-prog-application/xml-ext-arg '("-remote" "openFile(%s)")
   "%s will be replaced with a file name.")
 
 (defvar mew-prog-image/*         'mew-mime-image/*)
-(defvar mew-prog-image/*-ext     "xv")
+(defvar mew-prog-image/*-ext     "display")
 (defvar mew-prog-image/*-ext-arg '("-geometry" "+0+0"))
 
 (defvar mew-prog-application/msword "wvHtml")
diff -ur mew.orig/mew-vars.el mew/mew-vars.el
--- mew.orig/mew-vars.el	Thu May 23 23:54:28 2002
+++ mew/mew-vars.el	Mon Jun 10 21:49:39 2002
@@ -2289,7 +2289,7 @@
 (defvar mew-prog-tar         "tar")
 (defvar mew-prog-compress    "compress")
 (defvar mew-prog-gzip        "gzip")
-(defcustom mew-prog-pgp      "pgp"
+(defcustom mew-prog-pgp      "gpg"
   "*PGP name for version check."
   :group 'mew-privacy
   :type 'string)
@@ -2331,8 +2331,8 @@
 ;;;
 
 (defvar mew-x-face-filter `(,mew-prog-uncompface "ikon2xbm"))
-(defvar mew-x-face-prog "xv")
-(defvar mew-x-face-args nil)
+(defvar mew-x-face-prog "display")
+(defvar mew-x-face-args '("-geometry" "+0+0"))
 (defcustom mew-x-face-file "~/.xface"
   "*If *non-nil* and the file exists, X-Face: fields is inserted."
   :group 'mew-summary
diff -ur mew.orig/mew-vars2.el mew/mew-vars2.el
--- mew.orig/mew-vars2.el	Mon Jun 10 20:07:59 2002
+++ mew/mew-vars2.el	Mon Jun 10 21:49:39 2002
@@ -808,7 +808,7 @@
 
 (defvar mew-ext-url-alist
   '(("^application/" "Fetch by w3" mew-ext-url-fetch-by-w3 nil)
-    (t		     "Browse by netscape" "netscape" ("-install")))
+    (t		     "Browse by mozilla" "mozilla" ("-install")))
   "*Alist of (REGEXP DOC PROGRAM ARGS-LIST) to define
 an appropriate method for a content-type in external-body. Note
 this phantom body is defined RFC 2017.
@@ -820,11 +820,11 @@
 'mew-ext-url-show-by-w3' and 'mew-ext-url-fetch-by-w3' are pre-defined
 as lisp function.
 
-If you want to use \"w3.el\" instead of \"netscape\", put the 
+If you want to use \"w3.el\" instead of \"mozilla\", put the 
 following in .emacs.
 	(setq mew-ext-url-alist
               '((t (\"Browse by w3\" mew-ext-url-show-by-w3 nil))))
-If you want to use \"lynx\" instead of \"netscape\", put the 
+If you want to use \"lynx\" instead of \"mozilla\", put the 
 following in .emacs.
         (setq mew-ext-url-alist
               '((t (\"Browse by lynx\" \"kterm\" (\"-e\" \"lynx\" \"-color\")))))