Lars Magne Ingebrigtsen wrote:
[...]
> --- a/lisp/mail/smtpmail.el	2011-05-30 17:23:47 +0000
> +++ b/lisp/mail/smtpmail.el	2011-06-21 21:10:52 +0000
[...]
> +	  (setq result
> +		(open-network-stream
> +		 "smtpmail" process-buffer host port
> +		 :type smtpmail-stream-type
> +		 :return-list t

I've been using smtpmail with replacing `open-network-stream' with
`my-open-network-stream'.  That does login to the remote host by
ssh and connects to the smtp port of the host using netcat.  For
the recent change (adding :return-list t), I've modified my function
so as to return (PROCESS :greeting "200 Ok") rather than PROCESS.
If there's a similar old program in the world, the following patch
will help.  But please ignore it if it is not worth installing. :)