[Mew-Win32 03178] Re: dll handling patch

[Hideyuki SHIRAI ( 白井秀行 )]

From: Tak Ota <Takaaki.Ota at example.com> さん曰く
Subject: [Mew-Win32 03177] dll handling patch
Message-ID: <20010509.185602.42409809.Takaaki.Ota at example.com>
Date: Wed, 09 May 2001 18:56:02 -0700 (PDT)

太田> 白井さん、北口さんから指摘頂いていたのに忙しくて忘れていたら b122 が出
太田> てしまいました。おそまきながらパッチを添えます。

パッチは mew-dist の方に出さないと、山本さんの目に止まらないため、
反映されないです。:-)

太田> Mew の知らないファイルの時に使用するディフォルトをカスタマイズすること
太田> はできますか？そういう変数があれば個人的には Application/Octet-stream
太田> を設定したいです。

そういう変数は無いのですが、mew-replace-with() を使うと簡単に出
来ます。今回の場合だったら、mew-init-hook などで、

(mew-replace-with
 mew-mime-content-type
 '("application/octet-stream" "\\.exe$\\|\\.com$\\|\\.cmd$\\|\\.bat$\\|\\.dll$"
   mew-b64 mew-prog-w32 mew-icon-application/octet-stream)
 "application/octet-stream")

とすれば大丈夫です。引数の意味は

(mew-replace-with "対象の変数" "置き換え後の値" "置き換えたい list の key")

で、簡単な例だと

(setq hoge '((1 2) (3 4) (5 6)))
(mew-replace-with hoge '(3 9) 3)
hoge => ((1 2) (3 9) (5 6))

となります。

(setq hoge '((1 2) (3 4) (5 6) (3 6)))
(mew-replace-with hoge '(3 9) 3)
hoge => ((1 2) (3 9) (5 6) (3 6))

の様に最初に引っ掛かったものにしか効力がありません。

-- 
白井秀行 (mailto:shirai at example.com)