From 7084ad04466550687b29137293d9319e78cd18be Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 24 Sep 1994 04:57:53 +0000 Subject: [PATCH] (nntp-send-region-to-server): Call process-send-region just once, for the whole string. --- lisp/nntp.el | 24 +----------------------- 1 file changed, 1 insertion(+), 23 deletions(-) diff --git a/lisp/nntp.el b/lisp/nntp.el index 607febab8ba..e72e7efec97 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -623,29 +623,7 @@ in the current news group." ;; process because of NEmacs hack. (copy-to-buffer nntp-server-buffer begin end) (set-buffer nntp-server-buffer) - (setq begin (point-min)) - (setq end (point-max)) - ;; `process-send-region' does not work if text to be sent is very - ;; large. I don't know maximum size of text sent correctly. - (let ((last nil) - (size 100)) ;Size of text sent at once. - (save-restriction - (narrow-to-region begin end) - (goto-char begin) - (while (not (eobp)) - ;;(setq last (min end (+ (point) size))) - ;; NEmacs gets confused if character at `last' is Kanji. - (setq last (save-excursion - (goto-char (min end (+ (point) size))) - (or (eobp) (forward-char 1)) ;Adjust point - (point))) - (process-send-region nntp-server-process (point) last) - ;; I don't know whether the next codes solve the known - ;; problem of communication error of GNU Emacs. - (accept-process-output) - ;;(sit-for 0) - (goto-char last) - ))) + (process-send-region nntp-server-process (point-min) (point-max)) ;; We cannot erase buffer, because reply may be received. (delete-region begin end) )) -- 2.39.5