From a9c810bf47407b52171c219c593d0fc2fdf3ca54 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 19 Dec 1999 00:39:01 +0000 Subject: [PATCH] (pop3-movemail-file-coding-system): Doc fix. (pop3-movemail): Replace binding of pop3-movemail-file-coding-system. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/pop3.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 872f1a2cabe..b4e5a3f6d3e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +1999-12-19 Dave Love + + * 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 * nnvirtual.el (nnvirtual-create-mapping): Don't use mapc. diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index c7159400a0c..6d31b05f506 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)) -- 2.39.5