diff options
| author | Lars Magne Ingebrigtsen | 1996-02-24 00:32:46 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 1996-02-24 00:32:46 +0000 |
| commit | 11d4e02fcf1c20d39f61d3cf39b7220bf93440d0 (patch) | |
| tree | 803dddb6e695efc0e5926cd9aa49d2f6ab4bdb50 | |
| parent | 67edb19c82332de615fc970d3b6ab87277f82d84 (diff) | |
| download | emacs-11d4e02fcf1c20d39f61d3cf39b7220bf93440d0.tar.gz emacs-11d4e02fcf1c20d39f61d3cf39b7220bf93440d0.zip | |
* nntp.el (nntp-request-post): Clear the server buffer before
sending text to the server.
| -rw-r--r-- | lisp/nntp.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/nntp.el b/lisp/nntp.el index b6a49ee5888..e5e1f2a36b3 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el | |||
| @@ -591,8 +591,14 @@ servers." | |||
| 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 |