Re: 8bit mails via POP and IMAP mail-source

[simon@josefsson.org]

Pavel@Janik.cz (Pavel Janík ml.) writes:

> Via IMAP, the mail is stored in \202X/202Y and is then viewed as such :-(

`coding-system-for-write' seem to be bound to nil in pop3.el, here's a
similar (untested) patch for mail-source.el.

Does it work?  (Assuming asking the user for character sets can be
regarded as "work".  Should the variable, and the one in pop3.el,
default to 'raw-text instead?)

Index: mail-source.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v
retrieving revision 5.38
diff -w -u -u -w -r5.38 mail-source.el
--- mail-source.el	2000/05/15 14:14:42	5.38
+++ mail-source.el	2000/08/04 13:53:48
@@ -649,6 +649,9 @@
   (autoload 'imap-list-to-message-set "imap")
   (autoload 'nnheader-ms-strip-cr "nnheader"))
 
+(defvar mail-source-imap-file-coding-system nil
+  "Coding system for the crashbox made by `mail-source-fetch-imap'.")
+
 (defun mail-source-fetch-imap (source callback)
   "Fetcher for imap sources."
   (mail-source-bind (imap source)
@@ -662,7 +665,7 @@
 		user (or (cdr (assoc from mail-source-password-cache))
 			 password) buf)
 	       (imap-mailbox-select mailbox nil buf))
-	  (let (str (coding-system-for-write 'binary))
+	  (let (str (coding-system-for-write mail-source-imap-file-coding-system))
 	    (with-temp-file mail-source-crash-box
 	      ;; remember password
 	      (with-current-buffer buf