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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4636cf3dd25eeb3a03fad8fed8087f7479a9d56a..4ac5f8e5164d1c12422d5f3f74b684afe72e93b1 100644 (file)
--- 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 9fb20725b960c417985b98372101a5f17a043349..aa040d228f0d716f9b7dbab1aeeca1b72979692e 100644 (file)
--- 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)