# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 945563826 0
# Node ID 64597461b49859d7abe2ac772b66ff8538fb040e
# Parent  701de01758bc284288d7be151910b14609a7c828
(pop3-movemail-file-coding-system): Doc fix.
(pop3-movemail): Replace binding of pop3-movemail-file-coding-system.

diff -r 701de01758bc -r 64597461b498 lisp/gnus/pop3.el
--- 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))