smtpmail hangs in batch mode on windows nt

[Harald . Maier . BW]

In GNU Emacs 20.7.1 (i386-*-nt4.0.1381) of Tue Jun 13 2000 on buffy
configured using `configure NT'


I noticed the following problem: If I call the message-mail function
configured to use 'smtpmail-send-it' in batch mode then the function
'smtpmail-read-response' hangs in the primitive function
'accept-process-output'. If I call the function without the -batch
flag it works fine. See the following two emacs commands:

$ emacs -l f:/home/maierh/elisp/test.el -f test -f kill-emacs # works fine
$ emacs -l f:/home/maierh/elsip/test.el -f test -batch        # emacs hangs

My workaround is to use the first one. It follows the test.el script
and the definitions from my .gnus file.

Harald

;; test.el ;;;;;;;;;;;;;;;;;;;;;;;;
  (defun test()
    (interactive)
    (load-file "~/.gnus")
    (message-mail
     "harald.maier.bw@t-online.de" 
     (concat "test-" (format-time-string "%H:%M:%S")))
    (insert " ")  
    (message-send)
  )
;; test.el end ;;;;;;;;;;;;;;;;;;;;

;; .gnus ;;;;;;;;;;;;;;;;;;;;;;;;;;

  (require 'smtpmail)

  (setq send-mail-function 'smtpmail-send-it)
  (setq message-send-mail-function 'smtpmail-send-it)
  
  (setq smtpmail-smtp-server "mailto.t-online.de")
  (setq smtpmail-debug-info t)  
  
  (setq mail-sources
        '((pop
         :server   "pop.t-online.de"
         :user     "000708041613#3200411259230001"
         :password "<my t-online password>"
         )))
  
;; .gnus end ;;;;;;;;;;;;;;;;;;;;;;