diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
| commit | ccaab511232787a68f73f841ab9021aac7d89d41 (patch) | |
| tree | fa45840ea362e92c33ed3f569f81b341b2a1c4fc /lisp/gnus/nntp.el | |
| parent | 3c22558d5e159a9a16d5678997a93630277154a5 (diff) | |
| download | emacs-ccaab511232787a68f73f841ab9021aac7d89d41.tar.gz | |
(nntp-coding-system-for-write): New variable.
(nntp-open-connection): Bind coding-system-for-write to
nntp-coding-system-for-write.
Diffstat (limited to 'lisp/gnus/nntp.el')
| -rw-r--r-- | lisp/gnus/nntp.el | 8 |
1 files changed, 6 insertions, 2 deletions
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 <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 @@ 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)))) |