From: Dave Love <fx@gnu.org>
Date: Sun, 19 Dec 1999 00:39:01 +0000 (+0000)
Subject: (pop3-movemail-file-coding-system): Doc fix.
X-Git-Tag: emacs-pretest-21.0.90~5670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9c810bf47407b52171c219c593d0fc2fdf3ca54;p=emacs.git

(pop3-movemail-file-coding-system): Doc fix.
(pop3-movemail): Replace binding of pop3-movemail-file-coding-system.
---

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  <fx@gnu.org>
+
+	* 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  <fx@gnu.org>
 
 	* 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))