From: Kenichi Handa <handa@m17n.org>
Date: Thu, 28 Aug 1997 04:51:02 +0000 (+0000)
Subject: (pop3-movemail-file-coding-system): Append it for
X-Git-Tag: emacs-20.1~353
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a16dd35a64da48a282d1327cbe03de5a881317f7;p=emacs.git

(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 --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index c67b3d6db8b..95bd64ccaa4 100644
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -60,6 +60,9 @@ values are 'apop.")
   "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 @@ Used for APOP authentication.")
       (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))