(pop3-open-server): Bind coding-system-for-read and ...-for-write.

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

diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 27189bf3725ce0dcb643249bfb1717b830a3f6ec..ce1390f02e7ce40ca74ab36bdec9f9f61c324a3d 100644 (file)
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -110,8 +110,8 @@ Returns the process associated with the connection."
   (let ((process-buffer
         (get-buffer-create (format "trace of POP session to %s" mailhost)))
        (process)
-       (process-coding-system-alist
-        (cons '("POP" . nil) process-coding-system-alist)))
+       (coding-system-for-read 'no-conversion)
+       (coding-system-for-write 'no-conversion))
     (save-excursion
       (set-buffer process-buffer)
       (erase-buffer))