diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/gnus/pop3.el | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 872f1a2cab..b4e5a3f6d3 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +1999-12-19 Dave Love <[email protected]> + + * mail/pop3.el (pop3-movemail-file-coding-system): Doc fix. + (pop3-movemail): Replace binding of + pop3-movemail-file-coding-system. + 1999-10-23 Dave Love <[email protected]> * nnvirtual.el (nnvirtual-create-mapping): Don't use mapc. diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index c7159400a0..6d31b05f50 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -61,7 +61,7 @@ values are 'apop.") Used for APOP authentication.") (defvar pop3-movemail-file-coding-system nil - "Crashbox made by `pop3-movemail' with this coding system.") + "Coding system for the crashbox made by `pop3-movemail'.") (defvar pop3-read-point nil) (defvar pop3-debug nil) @@ -95,7 +95,8 @@ Used for APOP authentication.") (pop3-retr process n crashbuf) (save-excursion (set-buffer crashbuf) - (write-region (point-min) (point-max) crashbox t 'nomesg) + (let ((coding-system-for-write pop3-movemail-file-coding-system)) + (write-region (point-min) (point-max) crashbox t 'nomesg)) (set-buffer (process-buffer process)) (while (> (buffer-size) 5000) (goto-char (point-min)) |