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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9975ce9..cb37888 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-15 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * pop3.el (pop3-movemail): Use binary.
+       (pop3-movemail-file-coding-system): Removed.
+
 2000-12-14 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-util.el (mm-charset-synonym-alist): Add cn-gb.

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 6838432..622bbca 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -61,9 +61,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)
 
@@ -96,7 +93,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)