Re: mime-charset determination

[ShengHuo ZHU <zsh@cs.rochester.edu>]

Andrei Elkin <astro@sbor.ru> writes:

> Current (5.8.7 for me) version provides the definitions of
> `mm-find-mime-charset-region','mm-mime-charset' that seems to be incorrect.
> 
> For example my C-h L RET gives:
> 
>      Cyrillic-KOI8 language environment
> 
>      Support for Cyrillic KOI8-R.
> 
>      Sample text:
>      Russian (Русский)	Здравствуйте!
> 

[...]

> I found out that `select-message-coding-system' works correctly
> (resulting with cyrillic-koi8). So the situation becomes nice for me
> with a redefinition of  
> 
> (defun mm-find-mime-charset-region (b e)
>   (let ((mime-charset  
>          (coding-system-get (select-message-coding-system) 'mime-charset)))
>     (if (listp mime-charset) mime-charset (list mime-charset))))
> 
> that dont need for 'mm-mime-charset' at all.

select-message-coding-system might not be the answer for all
situations, especially when a message contains characters in the
charset other than the default one.

Anyway, the solution for KOI8-R encoding is

 (if (fboundp 'put-charset-property)
    (put-charset-property 'cyrillic-iso8859-5
                          'preferred-coding-system 'koi8-r))


ShengHuo