(pop3-open-server): Set process-coding-system-alist around open-network-stream.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 4b10f782e3f..27189bf3725 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -109,7 +109,9 @@ Used for APOP authentication.")
 Returns the process associated with the connection."
   (let ((process-buffer
          (get-buffer-create (format "trace of POP session to %s" mailhost)))
-        (process))
+        (process)
+        (process-coding-system-alist
+         (cons '("POP" . nil) process-coding-system-alist)))
     (save-excursion
       (set-buffer process-buffer)
       (erase-buffer))