diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-09-24 04:57:53 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-09-24 04:57:53 +0000 |
commit | 09a3491124dd3159c85a92aff333b12e439afe33 (patch) | |
tree | 0d16f1d9ff6a4917ff2ae8d41a2f9aebac998b75 /lisp/=nntp.el | |
parent | 9f623c0686cbd586d1610dcbdb2c1c4348c322bb (diff) | |
download | emacs-09a3491124dd3159c85a92aff333b12e439afe33.tar.gz |
(nntp-send-region-to-server): Call process-send-region
just once, for the whole string.
Diffstat (limited to 'lisp/=nntp.el')
-rw-r--r-- | lisp/=nntp.el | 24 |
1 files changed, 1 insertions, 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) )) |