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

This commit is contained in:
Richard M. Stallman 1998-10-08 09:58:00 +00:00
parent 55d8d76935
commit cebe85e9df

View file

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