Re: Default for the envelope From in smtpmail.el

[Nix]

On 13 Aug 2012, Stephen J. Turnbull stated:
> I suppose it would be possible to enhance user-mail-address to
> something like user-mail-configurations, which would be a list of
> lists like (ADDRESS FULLNAME LOGIN AUTHENTICATION EXTRA-HEADERS).  Of
> course Gnus already supports this kind of thing (I forget the Gnus
> name for the feature, as does VM ("personality crisis").

By coincidence I just had to do exactly that:

,----
| (defvar nix-overriding-smtp-servers '(("address@hidden" 
"[work.mailserver.host.censored]" 465 ssl))
|   "List of SMTP servers to override the default with.
| 
| An alist with each element of the form (EMAIL-ADDRESS SMTP-SERVER SMTP-PORT 
STREAM-TYPE).")
| 
| (defun nix-get-overriding-smtp-servers ()
|   (save-excursion
|     (loop with from = (save-restriction
|                         (message-narrow-to-headers)
|                         (message-fetch-field "from"))
|           for (addr server port stream-type) in nix-overriding-smtp-servers
|           when (string-match addr from) return (list server port stream-type)
|           finally return (list smtpmail-smtp-server smtpmail-smtp-service 
smtpmail-stream-type))))
| 
| (defadvice smtpmail-via-smtp
|   (around change-smtp-by-message-from-field (recipient buffer &optional ask) 
activate)
|   (with-current-buffer buffer
|     (progv '(smtpmail-smtp-server smtpmail-smtp-service smtpmail-stream-type)
|         (nix-get-overriding-smtp-servers)
|       ad-do-it)))
`----

Not killingly difficult, but something it would be nice if we didn't
have to do every time.

> IIRC, Glenn was specifically referring to Gnus.  So if he rephrases
> slightly to specify that MUA "personality" customizations should offer
> this option and documentation explaining when it makes sense, I think
> everybody would be happy.

Yes. As seen above, you can do it yourself, but you shouldn't need to,
not really: like gnus-posting-styles, this should be something Gnus (or
message mode) does for you.

-- 
NULL && (void)