From: Kenichi Handa Date: Fri, 26 Sep 1997 01:50:55 +0000 (+0000) Subject: (nntp-coding-system-for-write): New variable. X-Git-Tag: emacs-20.3~3081 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccaab511232787a68f73f841ab9021aac7d89d41;p=emacs.git (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 0cca4cc32e6..d73bf1c87c0 100644 --- 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 (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 @@ This function is supposed to be called from `nntp-server-opened-hook'." (process (condition-case () ;; 1997/5/4 by MORIOKA Tomohiko - (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))))