[Mew-dist 04407] Re: How to attach Non supported files

[Norio Suzuki]

こんにちは。鈴木教郎です。

> From: TSUCHIYA Masaru <masaru at example.com>
> Subject: Re: How to attach Non supported files
> Date: Tue, 14 Apr 1998 14:48:39 +0900
>> Message-ID: <19980414144829Z.masaru at example.com>

> > 添付領域では、ファイルのサフィックスによってデータを取り扱います。
> > 現在サポートしているサフィックスは以下の通りです。 

<snip>

> とありますが、これをユーザが追加することは可能でしょうか。私などは
> txt以外はApplication/Octet-StreamでBase64になってくれた方がうれし
> いのですが。

サフィックスの拡張のしかたでしょうか? それならば以前このメーリングリス
トで教えていただいた方法ですが、

(add-hook 'mew-draft-mode-hook
      (function (lambda ()
                  (setq mew-mime-content-type
                        (cons '("application/octet-stream" "\\.tgz$"
                                "base64" (mew-mime-application/octet-stream () \
nil))
                              mew-mime-content-type))
                  )))

というのを .emacs に書いておくと *.tgz が Application/Octet-Sream にな
ります。そこで "\\.tgz$" を \\.txt$ 以外ならばという表現をしたら良いの
でないかと思います。"^\\.tgz$" こうなるのでしょうか?(Emacs Lisp の正規
表現には自信なしです。)
--
鈴木教郎
E-Mail: nosuzuki at example.com