Mercurial > emacs
changeset 26944:64597461b498
(pop3-movemail-file-coding-system): Doc fix.
(pop3-movemail): Replace binding of pop3-movemail-file-coding-system.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 19 Dec 1999 00:37:06 +0000 |
| parents | 701de01758bc |
| children | 5a45e7376aac |
| files | lisp/gnus/pop3.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/pop3.el Sat Dec 18 17:44:05 1999 +0000 +++ b/lisp/gnus/pop3.el Sun Dec 19 00:37:06 1999 +0000 @@ -61,7 +61,7 @@ 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 @@ (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))