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

[Tak Ota]

20 May 2002 22:47:05 +0100: Jason Rumney <address@hidden> wrote:

> Christoph, Tak,
> 
> Could you please try the following patch, and tell me if it has any
> effect on the problems you reported with sending mail with Gnus and
> Mew and the latest CVS Emacs.
> 
> 
> *** process.c.~1.373.~        Mon May 20 21:41:59 2002
> --- process.c Mon May 20 22:41:50 2002
> ***************
> *** 4810,4815 ****
> --- 4810,4819 ----
>   #ifdef EAGAIN
>                     || errno == EAGAIN
>   #endif
> + #ifdef WSAENOBUFS
> +                   /* MS-Windows uses WSAENOBUFS for a full buffer.  */
> +                   || errno == WSAENOBUFS
> + #endif
>                     )
>                   /* Buffer is full.  Wait, accepting input; 
>                      that may allow the program
> 
> 
> _______________________________________________
> Emacs-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/emacs-devel

Jason,

Unfortunately that did not fix the problem with Mew.  Let me know
what other information or trial may help you solve this problem.

-Tak


Debugger entered--Lisp error: (file-error "writing to process" "invalid 
argument" #<process mew-smtp-info-mail1.sjc.in.sel.sony.com>)
  process-send-region(#<process mew-smtp-info-mail1.sjc.in.sel.sony.com> 9001 
10001)
  (let ((next ...)) (process-send-region pro cont next) (setq cont next) (setq 
i (1+ i)))
  (while (and (< cont ...) (not ...) (< i N)) (let (...) (process-send-region 
pro cont next) (setq cont next) (setq i ...)))
  (let ((cont ...) (sender ...) (inc 1000) (i 0) (N 10)) (set-buffer 
(process-buffer pro)) (when (and sender ...) (process-send-string pro ...) (let 
... ... ... ...)) (while (and ... ... ...) (let ... ... ... ...)) 
(mew-smtp-set-cont pnm cont) (if (< cont ...) (let ... ...) (mew-smtp-set-cont 
pnm nil) (mew-smtp-set-timer pnm nil) (process-send-string pro ...)))
  (save-excursion (let (... ... ... ... ...) (set-buffer ...) (when ... ... 
...) (while ... ...) (mew-smtp-set-cont pnm cont) (if ... ... ... ... ...)))
  mew-smtp-command-content(#<process mew-smtp-info-mail1.sjc.in.sel.sony.com> 
"mew-smtp-info-mail1.sjc.in.sel.sony.com")
  funcall(mew-smtp-command-content #<process 
mew-smtp-info-mail1.sjc.in.sel.sony.com> 
"mew-smtp-info-mail1.sjc.in.sel.sony.com")
  (and func (funcall func process pnm))
  (cond (next (mew-smtp-set-status pnm next) (setq func ...) (and func ...) 
(mew-smtp-set-string pnm nil)) (t (if ... ...) (mew-smtp-recover pnm str)))
  (cond ((and ... ...) (setq code ...) (setq next ...) (cond ... ...)) (t nil))
  (progn (set-buffer (process-buffer process)) (mew-smtp-set-string pnm str) 
(cond (... ... ... ...) (t nil)))
  (unwind-protect (progn (set-buffer ...) (mew-smtp-set-string pnm str) (cond 
... ...)) (if (get-buffer obuf) (set-buffer obuf)))
  (let ((obuf ...)) (unwind-protect (progn ... ... ...) (if ... ...)))
  (if (bufferp (process-buffer process)) (let (...) (unwind-protect ... ...)))
  (mew-filter (mew-smtp-set-string pnm str) (cond (... ... ... ...) (t nil)))
  (let* ((pnm ...) (status ...) (str ...) next func code) (mew-smtp-debug 
(upcase status) string) (mew-filter (mew-smtp-set-string pnm str) (cond ... 
...)))
  mew-smtp-filter(#<process mew-smtp-info-mail1.sjc.in.sel.sony.com> "354 Enter 
mail, end with \".\" on a line by itself\n")