Mercurial > emacs
changeset 34618:81ecf6fce11a
2000-12-15 ShengHuo ZHU <zsh@cs.rochester.edu>
* pop3.el (pop3-movemail): Use binary.
(pop3-movemail-file-coding-system): Removed.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Fri, 15 Dec 2000 15:13:29 +0000 |
| parents | 1759a3374578 |
| children | 237139766bdc |
| files | lisp/gnus/ChangeLog lisp/gnus/pop3.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Dec 15 15:07:18 2000 +0000 +++ b/lisp/gnus/ChangeLog Fri Dec 15 15:13:29 2000 +0000 @@ -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'
--- a/lisp/gnus/pop3.el Fri Dec 15 15:07:18 2000 +0000 +++ b/lisp/gnus/pop3.el Fri Dec 15 15:13:29 2000 +0000 @@ -58,9 +58,6 @@ "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 @@ (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)