diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-02-24 00:32:46 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-02-24 00:32:46 +0000 |
| commit | 11d4e02fcf1c20d39f61d3cf39b7220bf93440d0 (patch) | |
| tree | 803dddb6e695efc0e5926cd9aa49d2f6ab4bdb50 /lisp/nntp.el | |
| parent | 67edb19c82332de615fc970d3b6ab87277f82d84 (diff) | |
| download | emacs-11d4e02fcf1c20d39f61d3cf39b7220bf93440d0.tar.gz | |
* nntp.el (nntp-request-post): Clear the server buffer before
sending text to the server.
Diffstat (limited to 'lisp/nntp.el')
| -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." (defun nntp-request-post (&optional server) "Post the current buffer." (nntp-possibly-change-server nil server) + (save-excursion + (set-buffer nntp-server-buffer) + (erase-buffer)) (if (nntp-send-command "^[23].*\r?\n" "POST") (progn + (save-excursion + (set-buffer nntp-server-buffer) + (erase-buffer)) (nntp-encode-text) (nntp-send-region-to-server (point-min) (point-max)) ;; 1.2a NNTP's post command is buggy. "^M" (\r) is not |