[Mew-dist 412] Re: switch From: from To:

[Y.Yoshinaga]

吉永＠日立ソフトです。

》From: "樋口 雅文[Masafumi Higuchi]" <higuchi at example.com>
》Subject: Re: [Mew-dist 407] switch From: from To:
》Date: Tue, 14 Jan 1997 10:40:34 +0900
 # mew-distからまだ届かないんで私信として届いたものからの引用です。

 > 樋口@NTT ソフト研です。
 > 
 > >>>>> "yoshi" == (yoshi at example.com (Y.Yoshinaga)) さん曰く:
 > 
 > yoshi> 便乗になりますが、僕もFromを使いわけたいと思っています。
 > yoshi> メールを書くときにToによってFromを自動的に付けかえるようにするに
 > yoshi> はどうしたらいいんでしょうか？
 > 
 > 私はこんなの書いて使ってます。私もlispに詳しいわけじゃないので、きれい
 > なコードではないかもしれませんが...

ありがとうございます。

	：
 > そのうえで、mew-make-mimeを以下のように書き換えるとToによってFromを使
 > い分けられます。

早速組み込もうと思ったのですが、私の環境は mew-1.06 なので
このままでは組み込めないようです。
そこで mew-1.06 に組み込もうと、見よう見まねで
mew.el の mew-draft-make-mime を改造してみましたが
いくつかの関数(下線部)が 1.06 には無いようです。
mew-1.06 でこれらに対応する関数はありませんか？

(defun mew-draft-make-mime ()
  (interactive)
  (if (mew-field-get-value "Content-Type:")
      (progn
	(ding)
	(message "Content-Type: already exists!")
	)
    (if (mew-multi-p)
	(mew-draft-make-multi)
      (mew-draft-make-single))
    ;; by Masafumi Higuchi
    (if (null (mew-header-get-value "From:"))
               ^^^^^^^^^^^^^^^^^^^^
	(and mew-from-variation-alist
             (mew-header-insert-here "From:" (mew-select-from)))
              ^^^^^^^^^^^^^^^^^^^^^^
      (ding)
      (message "From: already exists!")
      )
    )
  )
-- 
吉永 孝明 (Y.Yoshinaga) <e-mail: yoshi at example.com>