address@hidden: Re: Problem sending bigger mails with CVS Gnus + CVS Emacs]

[Richard Stallman]

Can you do the right thing about this?  Or if it is due to a problem
in Emacs primitives, could you explain the problem to us so someone
can try to fix it?

------- Start of forwarded message -------
To: address@hidden
Reply-to: address@hidden, address@hidden
Organization: Church of GNU Emacs
X-Public-Key: 
http://wwwkeys.de.pgp.net:11371/pks/lookup?op=get&search=0x1B488DEA
Subject: Re: Problem sending bigger mails with CVS Gnus + CVS Emacs
From: Christoph Conrad <address@hidden>
Date: Fri, 17 May 2002 15:50:13 +0200

In GNU Emacs 21.2.50.1 (i386-msvc-nt4.0.1381)
 of 2002-05-17 on CLI119
configured using `configure --with-msvc (12.00)'
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: DEU
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: nil

I have some strange problem (and a workaround) with CVS Gnus and CVS
Emacs, both from today.

When i try to send a mail which is a little bit bigger than about 40K
the following lines are in /var/log/mail

,----
| May 17 13:14:11 cli3 sendmail[23841]: g4HBCja23841: collect: premature EOM: 
Error 0
| May 17 13:14:11 cli3 sendmail[24045]: g4HBDxa24045: collect: unexpected close 
on connection from cli119.cli.de, sender=<address@hidden>: Error 0
`----

and Emacs reports: "writing to process, invalid argument, SMTP

The workaround is to

(defadvice smtpmail-send-data(around smtpmail-send-data-delay act)
  (sleep-for 1)
  ad-do-it)

which simply makes a pause of 1 sec in smtpmail.el's code:

,----
|   ;; DATA
|   (smtpmail-send-command process "DATA")
| 
|   (if (or (null (car (setq response-code (smtpmail-read-response process))))
|           (not (integerp (car response-code)))
|           (>= (car response-code) 400))
|       (throw 'done nil)
|     )
|
|   ;; !!!! here: wait 1 sec 
|   ;; Mail contents
|   (smtpmail-send-data process smtpmail-text-buffer)
`----
------- End of forwarded message -------