Re: pop3.el & multibyte problems

[Dave Love <d.love@dl.ac.uk>]

>>>>> "HN" == Hrvoje Niksic <hniksic@srce.hr> writes:

 >> It currently uses `pop3-movemail-file-coding-system'

 HN> Not in `pop3.el' distributed with Gnus.

Sorry.  It's only in my local copy.  I thought Lars had merged this
from the Emacs 20.3 version, which I reckoned might avoid grief.  I
don't know if it does avoid it, as I haven't had to use POP yet.

BTW, it looks as though `file-name-coding-system' still needs binding
too, whereever `path-name-coding-system' is.  (Morioka 1997-10-21 change.)

1997-08-28  Miyashita Hisashi  <himi@etl.go.jp>

	* pop3.el (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.

*** pop3.el	1997/04/16 22:13:18	1.1
--- pop3.el	1997/08/28 04:51:02	1.2
***************
*** 60,65 ****
--- 60,68 ----
    "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,91 ****
        (pop3-retr process n crashbuf)
        (save-excursion
  	(set-buffer crashbuf)
! 	(append-to-file (point-min) (point-max) crashbox)
  	(set-buffer (process-buffer process))
  	(while (> (buffer-size) 5000)
  	  (goto-char (point-min))
--- 88,95 ----
        (pop3-retr process n crashbuf)
        (save-excursion
  	(set-buffer crashbuf)
! 	(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))