Mercurial > emacs

changeset 19992:36e81448237d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(nntp-coding-system-for-write): New variable. (nntp-open-connection): Bind coding-system-for-write to nntp-coding-system-for-write.
author Kenichi Handa <handa@m17n.org>
date Fri, 26 Sep 1997 01:50:55 +0000
parents 6a13c8143100
children 2c30b1fb6409
files lisp/gnus/nntp.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/nntp.el	Fri Sep 26 01:50:55 1997 +0000
+++ b/lisp/gnus/nntp.el	Fri Sep 26 01:50:55 1997 +0000
@@ -151,7 +151,10 @@
 
 ;; 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.")
 
 
 
@@ -750,7 +753,8 @@
 	 (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))))