Re: \201 problem reproduced

[Hallvard B Furuseth <h.b.furuseth@usit.uio.no>]

Right.  The closest you can get with stuff like this in mm-utils:

(defun mm-mime-charset (charset b e)
  (if (fboundp 'coding-system-get)
      (or
>>>    (coding-system-get
>>>     (get-charset-property charset 'prefered-coding-system)
        'mime-charset)
       (car (memq charset (find-coding-systems-region
                           (point-min) (point-max)))))
    (mm-mule-charset-to-mime-charset charset)))

is probably to first check if the session's preferred coding system or
whatever supports <charset> and has a 'mime-charset.  Apparently
something like this (unless MULE has a function to do it already):

    (if (let ((safe (coding-system-get <preferred-MIME-coding-system>
				       'safe-charsets)))
	  (or (eq safe t) (memq charset safe)))
	(coding-system-get <preferred-MIME-coding-system> 'mime-charset)

...except that we want the inverse of 'safe-charsets':-( safe-charsets
means the charset can encode the coding system, not that the coding
system can encode the charset.  koi8 can't encode all of iso8859-5.

The only real solution is to *not* deal with MULE charsets, but go
directly from MULE coding system to MIME charset.  But maybe that's more
work and won't happen that fast.

-- 
Hallvard