Mercurial > emacs

changeset 14654:4db721fba60b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 79cf52c9ef93
children 8246444fbe55
files lisp/nntp.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/nntp.el	Fri Feb 23 23:51:05 1996 +0000
+++ b/lisp/nntp.el	Sat Feb 24 00:32:46 1996 +0000
@@ -591,8 +591,14 @@
 (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