Please apply this patch to pop3.el in Gnus-5.4 to use with Emacs/Mule

[himi@etl.go.jp]

[-- Attachment #1: Type: text/plain, Size: 356 bytes --]


Hello.

I am using Gnus-5.4 on Emacs/Mule comfotably.
But I found a problem pop3.el write files with
the default coding system.

I set the buffer-file-coding-system to japanese-shift-jis-dos.
So crashbox is written with this coding system.

I apply this patch to pop3.el to resolve it.
Could you use this patch officially?

Thank you.

Hisashi Miyashita


[-- Attachment #2: tmp --]
[-- Type: application/octet-stream, Size: 774 bytes --]

--- gnus-5.4.64\lisp\pop3.el	Sun Jul 20 06:39:26 1997
+++ gnus-5.4.64-m\lisp\pop3.el	Mon Jul 28 10:18:10 1997
@@ -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))

[-- Attachment #3: Type: text/plain, Size: 1 bytes --]