Mercurial > emacs
comparison lisp/nntp.el @ 14654:4db721fba60b
* nntp.el (nntp-request-post): Clear the server buffer before
sending text to the server.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Sat, 24 Feb 1996 00:32:46 +0000 |
| parents | 47ced2dc4bf6 |
| children | 530d0d516a42 |
comparison
equal
deleted
inserted
replaced
| 14653:79cf52c9ef93 | 14654:4db721fba60b |
|---|---|
| 589 (nntp-send-command "^[23].*\r?\n" "NEXT")) | 589 (nntp-send-command "^[23].*\r?\n" "NEXT")) |
| 590 | 590 |
| 591 (defun nntp-request-post (&optional server) | 591 (defun nntp-request-post (&optional server) |
| 592 "Post the current buffer." | 592 "Post the current buffer." |
| 593 (nntp-possibly-change-server nil server) | 593 (nntp-possibly-change-server nil server) |
| 594 (save-excursion | |
| 595 (set-buffer nntp-server-buffer) | |
| 596 (erase-buffer)) | |
| 594 (if (nntp-send-command "^[23].*\r?\n" "POST") | 597 (if (nntp-send-command "^[23].*\r?\n" "POST") |
| 595 (progn | 598 (progn |
| 599 (save-excursion | |
| 600 (set-buffer nntp-server-buffer) | |
| 601 (erase-buffer)) | |
| 596 (nntp-encode-text) | 602 (nntp-encode-text) |
| 597 (nntp-send-region-to-server (point-min) (point-max)) | 603 (nntp-send-region-to-server (point-min) (point-max)) |
| 598 ;; 1.2a NNTP's post command is buggy. "^M" (\r) is not | 604 ;; 1.2a NNTP's post command is buggy. "^M" (\r) is not |
| 599 ;; appended to end of the status message. | 605 ;; appended to end of the status message. |
| 600 (nntp-wait-for-response "^[23].*\n")))) | 606 (nntp-wait-for-response "^[23].*\n")))) |