[Mew-dist 16748] Re: smtp-mail-from

[Kazu Yamamoto ( 山本和彦 )]

From: Tatsuya Kinoshita <tatsuyak at example.com>
Subject: [Mew-dist 16707] smtp-mail-from

> 「smtp-mail-fromも上書きする」というふうな指定がcaseごとにできると
> 良いのかも。そうなると、mew-use-senderがtの場合に自動で作られた
> Senderフィールドはどうするべきか……。

50 分出発の遅れた ANA 259 の中で考えました。やはり、From:/Sender: は、
+queue で preview できるべきです。で、結局 SMTP Mail-From が case で定
義したものに従えばよいだけということに気付き、以下のようにしてみました。
Mail-Form が定義されているときのみ、古い定義を上書きします。どうでしょ
う？

＃ 試していませんが。

--かず＠博多

Index: mew-smtp.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-smtp.el,v
retrieving revision 1.149
retrieving revision 1.150
diff -c -r1.149 -r1.150
*** mew-smtp.el	2001/03/03 03:39:54	1.149
--- mew-smtp.el	2001/03/09 02:07:58	1.150
***************
*** 201,206 ****
--- 201,209 ----
        (mew-smtp-set-ssh-server pnm ssh-server)
        (mew-smtp-set-queue pnm qfld)
        (mew-smtp-set-messages pnm (cdr flushp-msgs))
+       ;; If Mail-From is specified for the case, override the old one.
+       (if (mew-smtp-mail-from case)
+ 	  (mew-smtp-set-from pnm (mew-smtp-mail-from case)))
        ;; in msg's buffer
        (when flushp
  	(message "Flushing %s ... " qfld)