Mercurial > emacs
changeset 9066:f211cea65063
(nntp-send-region-to-server): Call process-send-region
just once, for the whole string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Sep 1994 04:57:53 +0000 |
| parents | e321617e3fc6 |
| children | e3c21008877f |
| files | lisp/=nntp.el |
| diffstat | 1 files changed, 1 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=nntp.el Sat Sep 24 04:52:10 1994 +0000 +++ b/lisp/=nntp.el Sat Sep 24 04:57:53 1994 +0000 @@ -623,29 +623,7 @@ ;; 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) ))