From: morioka <morioka>
Date: Wed, 7 Jan 1998 13:53:41 +0000 (+0000)
Subject: (pop3-movemail-file-coding-system): Change default value to `binary'.
X-Git-Tag: gnus-6_7-tomo-199811302358~269
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=70da3054d69e1a4f9c72f89ac609a38f398f0813;p=elisp%2Fgnus.git-

(pop3-movemail-file-coding-system): Change default value to `binary'.
(pop3-open-server): Guard `coding-system-for-read' by `binary'.
---

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 8faa223..e6ae5f1 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -60,7 +60,7 @@ values are 'apop.")
   "Timestamp returned when initially connected to the POP server.
 Used for APOP authentication.")
 
-(defvar pop3-movemail-file-coding-system nil
+(defvar pop3-movemail-file-coding-system 'binary
   "Crashbox made by pop3-movemail with this coding system.")
 
 (defvar pop3-read-point nil)
@@ -115,7 +115,8 @@ 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)
+	(coding-system-for-read 'binary))
     (save-excursion
       (set-buffer process-buffer)
       (erase-buffer)
@@ -127,8 +128,7 @@ Returns the process associated with the connection."
       (setq pop3-timestamp
 	    (substring response (or (string-match "<" response) 0)
 		       (+ 1 (or (string-match ">" response) -1)))))
-    process
-    ))
+    process))
 
 ;; Support functions