Re: [h-e-w] Problem sending mail w/ Gnus

[Robert Praetorius]

> Thanks. This change helped considerably but did not eliminate the
> problem completely. I know that sounds strange but it only failed about
> 1 out of 20 tries.

     You might try the analogous change a few lines farther down in 
smtpmail.el (assuming it hasn't changed radically from 21.2), that is

  (process-send-string process data)
  (process-send-string process "\r\n")

==>

  (process-send-string process (concat data "\r\n"))

in smtpmail-send-data-1 .  Why this should matter to an MTA (or 2 
different MTAs) isn't clear to me (anybody have any ideas?).

> Sarir
>
>                       "Robert                                    
>                       Praetorius"              To:      Sarir Khamsi
>                       <address@hidden>                      
>                                  <address@hidden         cc:            
>                                              enRes.Com>              
>                       Subject: Re: [h-e-w] Problem sending mail w/ Gnus  
> 
> I had a different (but equally peculiar) problem with sending mail from
> Emacs about a year ago:
> 
> http://mail.gnu.org/archive/html/help-emacs-windows/2002-10/msg00111.html
> 
> Here's the patch I came up with - it's so small and simple, it's worth a
> try, even if it's just a shot in the dark (please respond back to the
> list if it works for you, though)
> 
> *** /e/emacs-21.2/lisp/mail/smtpmail.el-orig Mon Dec 10 14:52:42 2001 ---
> /e/emacs-21.2/lisp/mail/smtpmail.el Fri Oct 18 14:53:17 2002
> *************** *** 599,606 ****
>         (insert "PASS <omitted>\r\n")
>       (insert command "\r\n"))
>     (setq smtpmail-read-point (point))
> !   (process-send-string process command)
> !   (process-send-string process "\r\n"))
> 
>   (defun smtpmail-send-data-1 (process data)
>     (goto-char (point-max))
> --- 599,605 ----
>         (insert "PASS <omitted>\r\n")
>       (insert command "\r\n"))
>     (setq smtpmail-read-point (point))
> !   (process-send-string process (concat command "\r\n")))
> 
>   (defun smtpmail-send-data-1 (process data)
>     (goto-char (point-max))