[mew-dist 23379] Re: Cannot add filename to Message/Rfc822 attachment in Mew 3.2

[ITO Tsuyoshi]

Kazu Yamamoto (山本和彦) <kazu at example.com> wrote in [mew-dist 23378]:
Date: Mon, 24 Mar 2003 07:50:48 +0900 (JST)

> From: ITO Tsuyoshi <tsuyoshi at example.com>
> Subject: [mew-dist 23186] Re: Cannot add filename to Message/Rfc822 attachment in Mew 3.2
> 
> > ファイル名さえ付けられれば、 attachment でも inline でも構いません。
> > 
> > Content-Type: Message/Rfc822 な part の Content-Disposition フィールド
> > に filename パラメータを付けたいということです。
> 
> 大変遅くなりましたが、Mew 3.2 には以下のパッチで意図通りに動くと思います。

mew-mime-content-disposition なんてそのものずばりな名前の変数で
制御できたのですね。気付いていませんでした。ありがとうございます。

しかし……書いていただいたパッチのように mew-mime-content-disposition を
変更すると、 Summary モードで f キーを押してメールを転送するときにも
デフォルトで 1 などのファイル名が付いてしまうのですね。

教えていただいたことをもとに、 mew-mime-content-disposition を変更
しないで私の望んだことをするパッチを書いてみました（mew-syntax.el.patch）。
Mew 3.2 に対するパッチです。

まだ mew-syntax-cdp-format の引数 cdp の意味を理解していないので、
意味的に間違ったことをしているかもしれません。
また、少し不満があります。アドバイスをいただければ幸甚です。

mew-syntax.el.patch は、ほとんど今までの動作に影響を与えない
（つもり）なので、マージしていただけたら嬉しいです。
9:40 現在の CVS HEAD にエラーなく適用できることだけは確認しましたが、
コンパイルや動作は確認していません。

mew-syntax.el.patch で意図しているのは、 (mew-cdpdb-file ctpdb) を 
part を作ったときのデフォルトとしてのみ用い、 mew-attach-disposition 
コマンドでファイル名を指定したときには (mew-cdpdb-file ct) に
関わらずファイル名を付けることです。

mew-syntax.el.patch を適用すると、次のような動作になります。
  - f (mew-summary-forward) や F (mew-summary-multi-forward) で
    draft を作った時点ではファイル名は付かない（今まで通り）
  - mew-attach-copy コマンドや mew-attach-link コマンドで 
    ~/Mail/inbox/100 などの Message/* なファイルを指定した場合も
    その時点ではファイル名は付かない（今まで通り）
  - mew-attach-disposition コマンドでファイル名を指定したときは
    ファイル名が付く
と、ここまでは私が意図した通りなのですが、
  - mew-summary-forward コマンドなどで Message/* な part を作った後、
    その part で T (mew-attach-type) を実行し、そのまま RET を押すと、
    Message/* な part の Content-Type は変化しないのに
    ファイル名が付いてしまい、少し気持ちが悪い（何も変化しないほうが
    気分がいいが、どういう動作がいいのかよくわからない）
というのが多少不満です。
T を押して RET というのは何か意図があってやるとは考えにくいので、
気にしないでいいのかもしれません。

-- 伊藤 剛志  <tsuyoshi at example.com> --
-- （東京大学大学院情報理工学系研究科       --
--        コンピュータ科学専攻 今井研究室） --
-------------- next part --------------
--- mew-syntax.el.orig	Mon Jan 20 16:13:55 2003
+++ mew-syntax.el	Mon Mar 24 09:09:58 2003
@@ -162,7 +162,7 @@
 	 (filep (mew-cdpdb-file cdpdb)))
     (if (stringp cdp) (setq file cdp))
     (when val
-      (if (and filep file)
+      (if (and (or filep (null cdp)) file)
 	  (list val (list "filename" (file-name-nondirectory (mew-header-sanity-check-string file))))
 	(list val)))))