# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 872743862 0
# Node ID 7184c83379634f0e02d9f62dd9fe8167937259f2
# Parent  abfa7b46c7bd87672cf044dfef3a6299c715f664
(pop3-movemail-file-coding-system): Append it for
assigning a coding system to receive mail with pop3.
(pop3-movemail): Modify for writing messages with
pop3-movemail-file-coding-system.

diff -r abfa7b46c7bd -r 7184c8337963 lisp/gnus/pop3.el
--- a/lisp/gnus/pop3.el	Thu Aug 28 04:51:02 1997 +0000
+++ b/lisp/gnus/pop3.el	Thu Aug 28 04:51:02 1997 +0000
@@ -60,6 +60,9 @@
   "Timestamp returned when initially connected to the POP server.
 Used for APOP authentication.")
 
+(defvar pop3-movemail-file-coding-system nil
+  "Crashbox made by pop3-movemail with this coding system.")
+
 (defvar pop3-read-point nil)
 (defvar pop3-debug nil)
 
@@ -85,7 +88,8 @@
       (pop3-retr process n crashbuf)
       (save-excursion
 	(set-buffer crashbuf)
-	(append-to-file (point-min) (point-max) crashbox)
+	(let ((coding-system-for-write pop3-movemail-file-coding-system))
+	  (append-to-file (point-min) (point-max) crashbox))
 	(set-buffer (process-buffer process))
 	(while (> (buffer-size) 5000)
 	  (goto-char (point-min))