From 11d4e02fcf1c20d39f61d3cf39b7220bf93440d0 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 24 Feb 1996 00:32:46 +0000 Subject: [PATCH] * nntp.el (nntp-request-post): Clear the server buffer before sending text to the server. --- lisp/nntp.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.39.2