Re: smtpmail: MAIL FROM and `gnus-posting-styles'

[Simon Josefsson <jas@extundo.com>]

Micha Wiedenmann <mw-u1@gmx.de> writes:

> Bjørn Mork writes:
>>Simon Josefsson <jas@extundo.com> writes:
>>> Micha Wiedenmann <mw-u1@gmx.de> writes:
>>>
>>>> when sendig a mail composed with `gnus-posting-styles' smtpmail uses
>>>> `user-mail-address' to determine "MAIL FROM:". Since
>>>> `gnus-posting-styles' already inserted "From: foo" this is confusing and
>>>> might be wrong. Is there a way to fix that behavior?
>>>
>>> Does it work to set user-mail-address in the posting style too?
>
> AFAICS it is not possible to set buffer-local variables from
> `gnus-posting-styles' but I would need buffer-local
> `user-mail-addresses' since I use several addresses.

Ah.  Hm.  But can't you set the global variable?  If you always use
posting styles, the global variable will have the right value.  If you
don't always use posting, perhaps using a message-sent-hook that
restores the global variable could work.

> Even if this would be possible I don't think this would help since I use
> `message-send-mail-function' value: `gnus-agent-send-mail'. If I am
> unplugged mail is stored in nndraft:queue and buffer-local settings
> would also lost, wouldn't they?

I think posting styles are supposed to be applied even when the
message is read from the nndraft:queue group, using the X-Draft-From:
header.

> I've two ideas:
>
> · Why does smtpmail use mail-envelope-from but don't try to determine
>   mail-from from :-) the mail?

Well, because the SMTP envelope header is different from the RFC822
header.  Perhaps there could be a speciel smtpmail.el feature that
used the From: address as SMTP envelope address?  This sounds trivial
to implement and could perhaps be generally useful.  What do you
think?

Hm.  Extending `mail-envelope-from' seems like the right thing.  What
do you think of the following?  (The second :type alternative,
`header', is new, the rest is unchanged.)

(defcustom mail-envelope-from nil
  "*If non-nil, designate the envelope-from address when sending mail.
If this is nil while `mail-specify-envelope-from' is non-nil, the
content of `user-mail-address' is used."
  :version "21.1"
  :type '(choice (string :tag "From-name")
		 (const :tag "Use From: header from message" header)
		 (const :tag "Use `user-mail-address'" nil))
  :group 'sendmail)

> · Is there a way to make buffer-local variables when the queue is send?

I don't know.