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

[nyc4bos]

I know that emacsbug.el, sendmail.el, and message.el are currently
being worked on, so possible fallout is to be expected.

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 GNU Emacs 24.0.93.1 (i386-mingw-nt5.1.2600)
 of 2012-02-15 on MARVIN
Windowing system distributor `Microsoft Corp.', version 5.1.2600
Configured using:
 `configure --with-gcc (4.6) --no-opt --enable-checking --cflags
 -ID:/devel/emacs/libs/libXpm-3.5.8/include
 -ID:/devel/emacs/libs/libXpm-3.5.8/src
 -ID:/devel/emacs/libs/libpng-dev_1.4.3-1/include
 -ID:/devel/emacs/libs/zlib-dev_1.2.5-2/include
 -ID:/devel/emacs/libs/giflib-4.1.4-1/include
 -ID:/devel/emacs/libs/jpeg-6b-4/include
 -ID:/devel/emacs/libs/tiff-3.8.2-1/include
 -ID:/devel/emacs/libs/gnutls-3.0.9/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US
  value of $XMODIFIERS: nil
  locale-coding-system: cp949
  default enable-multibyte-characters: t

Major mode: Fundamental

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<menu-bar> <help-menu> <send-emacs-bug-report>

Recent messages:
Sending via mail...
Setting `smtpmail-smtp-server' temporarily since "emacs -q" would overwrite 
customizations
Setting `smtpmail-smtp-service' temporarily since "emacs -q" would overwrite 
customizations
Decrypting k:/home/.authinfo.gpg...done
Save auth info to file ~/.authinfo? [y/n/N/e/?] n
Sending email 
Sending email done
Sending...done
Mark set
Type "q" in help window to restore its previous buffer.

Load-path shadows:
None found.

Features:
(help-fns rfc2104 gnutls network-stream starttls tls mailalias smtpmail
auth-source eieio byte-opt bytecomp byte-compile cconv macroexp assoc
password-cache cus-edit cus-start cus-load wid-edit multi-isearch
epa-file epa derived epg epg-config help-mode view shadow sort gnus-util
mail-extr emacsbug message format-spec rfc822 mml easymenu mml-sec
mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils
mailheader sendmail regexp-opt rfc2047 rfc2045 ietf-drums mm-util
mail-prsvr mail-utils time-date tooltip ediff-hook vc-hooks
lisp-float-type mwheel dos-w32 disp-table ls-lisp w32-win w32-vars
tool-bar dnd fontset image fringe lisp-mode register page menu-bar
rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak
czech european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer button faces cus-face files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote make-network-process
multi-tty emacs)