bug#10830: 24.0.93; message-send-mail-function function no longer working

[Glenn Morris]

nyc4bos@aol.com wrote:

> Consequently, the following function doesn't work anymore (while not
> with emacs -Q, of course):
>
> (defun message-send-mail-with-sendmail-or-smtp ()
>   "Send message with sendmail for local delivery, smtp for other."
>   (let ((to (save-restriction
>               (message-narrow-to-headers)
>               (message-fetch-field "to"))))
>     (if (and to (or (string-match (concat ".+@" system-name) to)
>                     (string-match ".+@localhost$" to)
>                     (string-match "^[^@]+$" to)))
>         (message-send-mail-with-sendmail)
>       (smtpmail-send-it))))
>
> (setq message-send-mail-function 'message-send-mail-with-sendmail-or-smtp)

In what way doesn't it work? What happens, under what circumstances?

You are basically saying that either or both of
message-send-mail-with-sendmail and smtpmail-send-it are not working.

The former works for me, the latter I cannot test.