2000-12-15 ShengHuo ZHU <zsh@cs.rochester.edu>

	* pop3.el (pop3-movemail): Use binary.
	(pop3-movemail-file-coding-system): Removed.

2 files changed, 6 insertions, 4 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4636cf3dd25..4ac5f8e5164 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-15  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+        * pop3.el (pop3-movemail): Use binary.
+        (pop3-movemail-file-coding-system): Removed.
+
 2000-12-13  Miles Bader  <miles@gnu.org>
 
         * smiley-ems.el (smiley-region): Bind `inhibit-point-motion-hooks'
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 9fb20725b96..aa040d228f0 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -58,9 +58,6 @@ values are 'apop.")
   "Timestamp returned when initially connected to the POP server.
 Used for APOP authentication.")
 
-(defvar pop3-movemail-file-coding-system nil
-  "Coding system for the crashbox made by `pop3-movemail'.")
-
 (defvar pop3-read-point nil)
 (defvar pop3-debug nil)
 
@@ -93,7 +90,7 @@ Used for APOP authentication.")
           (pop3-retr process n crashbuf)
           (save-excursion
             (set-buffer crashbuf)
-            (let ((coding-system-for-write pop3-movemail-file-coding-system))
+            (let ((coding-system-for-write 'binary))
               (write-region (point-min) (point-max) crashbox t 'nomesg))
             (set-buffer (process-buffer process))
             (while (> (buffer-size) 5000)