[Mew-dist 16146] Re: patch for mew-organization

[Tatsuya Kinoshita]

In message "[Mew-dist 16141] Re: patch for mew-organization"
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> (1) (mew-draft-header-insert mew-organization: (mew-organization case))
> が、(setq body (mew-draft-header-insert-alist other-headers)) の後なのは
> なぜでしょう？ (前ではダメなんでしょうか？)

前でよいと思います。「mew-header-alist挿入の手前」ということにしか
注意がいっていませんでした。

> (2) (mew-header-delete-lines (mapcar (function car) (mew-header-alist case)))
> を挿入した意図は何でしょう？

mew-header-alistで設定してあるフィールドで、それ以前のフィールドを
置き換え(上書き)することが目的です。

たとえば、mew-organizationが設定済みで、かつmew-header-alistでも
Organizationフィールドを挿入しようとしている場合、Organizationフィー
ルドを二つ作ってしまうのではなく、mew-header-alistの設定で置き換え
(上書き)しようとしています。

もし、mew-header-alistで設定したフィールドは必ず追加する、つまり、
同じフィールドが複数あってもかまわないのであれば、(2)のコードは
削除するべきです。

なお、mew-config.el内のmew-draft-set-config関数にも似たような
コードがあります。そこではcaseを切り替える際に、前回のcaseで
mew-header-alistにより追加されたフィールドを削除しようとしており、
このとき、同じフィールドがあればmew-header-alistの内容で置き換える
ようになっています。同じフィールドが複数存在することを許すなら、
この個所も修正が必要になりそうです。

-- 
木下達也 (Tatsuya Kinoshita)