Comment fix.

[gnu-emacs] / lisp / gnus / nntp.el

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index d73bf1c87c00990ee49e63ac2095f30c66fd81f0..4067d566eb65cd6400ebb5be8cf7885479ceda1d 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -150,10 +150,10 @@ server there that you can connect to.  See also `nntp-open-connection-function'"
   "*If non-nil, beep when a server closes connection.")
 
 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-(defvoo nntp-coding-system-for-read nil
+(defvoo nntp-coding-system-for-read 'binary
   "*Coding system to read from NNTP.")
 
-(defvoo nntp-coding-system-for-write nil
+(defvoo nntp-coding-system-for-write 'binary
   "*Coding system to write to NNTP.")
 
 \f
@@ -906,7 +906,12 @@ This function is supposed to be called from `nntp-server-opened-hook'."
       (insert "\n"))
     ;; Insert `.' at end of buffer (end of text mark).
     (goto-char (point-max))
-    (insert "." nntp-end-of-line)))
+    (insert ".\n")
+    (goto-char (point-min))
+    (while (not (eobp))
+      (end-of-line)
+      (delete-char 1)
+      (insert nntp-end-of-line))))
 
 (defun nntp-retrieve-headers-with-xover (articles &optional fetch-old)
   (set-buffer nntp-server-buffer)