From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 8 Oct 1998 09:58:00 +0000 (+0000)
Subject: (pop3-open-server): Set process-coding-system-alist around open-network-stream.
X-Git-Tag: emacs-20.4~1546
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cebe85e9dfce6769aa163c85180cb7401f2fadb5;p=emacs.git

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

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))