(nntp-coding-system-for-write): New variable.

(nntp-open-connection): Bind coding-system-for-write to
nntp-coding-system-for-write.

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 0cca4cc32e6ae64f6ceaf148943b3bb92200180c..d73bf1c87c00990ee49e63ac2095f30c66fd81f0 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -151,7 +151,10 @@ server there that you can connect to.  See also `nntp-open-connection-function'"
 
 ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
 (defvoo nntp-coding-system-for-read nil
-  "*coding-system for read from NNTP.")
+  "*Coding system to read from NNTP.")
+
+(defvoo nntp-coding-system-for-write nil
+  "*Coding system to write to NNTP.")
 
 \f
 
@@ -750,7 +753,8 @@ This function is supposed to be called from `nntp-server-opened-hook'."
         (process
          (condition-case ()
              ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-             (let ((coding-system-for-read nntp-coding-system-for-read))
+             (let ((coding-system-for-read nntp-coding-system-for-read)
+                   (coding-system-for-write nntp-coding-system-for-write))
                (funcall nntp-open-connection-function pbuffer))
            (error nil)
            (quit nil))))