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

[Takashi SATOH]

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

> > Mail-Form が定義されているときのみ、古い定義を上書きします。どうでしょ
> > う？
> 
> mew-use-senderがnilの場合には、それで良さそうです。

smtp-server が送信時に config-output にしたがって決まる以上、

smtp-auth
smtp-auth-list
smtp-user
smtp-helo-domain

の４つについても、送信時に config-output にしたがって
決まってほしいです。

Sender: 問題がどうなるかによって変わるようにも思いますが、
とりあえずのパッチです。

--さとー

*** mew-smtp.el.org	Fri Mar  9 11:40:23 2001
--- mew-smtp.el		Wed Mar 14 14:06:15 2001
***************
*** 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)
--- 201,218 ----
        (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, Auth and the like are specified for the case,
!       ;; override the old ones.
        (if (mew-smtp-mail-from case)
  	  (mew-smtp-set-from pnm (mew-smtp-mail-from case)))
+       (if (mew-smtp-auth case)
+ 	  (mew-smtp-set-auth pnm (mew-smtp-auth case)))
+       (if (mew-smtp-auth-list case)
+ 	  (mew-smtp-set-auth-list pnm (mew-smtp-auth-list case)))
+       (if (mew-smtp-user case)
+ 	  (mew-smtp-set-user pnm (mew-smtp-user case)))
+       (if (mew-smtp-helo-domain case)
+ 	  (mew-smtp-set-helo-domain pnm (mew-smtp-helo-domain case)))
        ;; in msg's buffer
        (when flushp
  	(message "Flushing %s ... " qfld)