mime-charset determination

[Andrei Elkin <astro@sbor.ru>]

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 (Русский)	Здравствуйте!

     Input methods (default, cyrillic-jcuken):

     Character sets:
     cyrillic-iso8859-5: ISO8859-5 (Cyrillic)

     Coding systems:
     cyrillic-koi8 (`R' in mode line):
     KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)
     (alias: koi8-r koi8)

And my evelope has
Content-Type: text/plain; charset=iso8859-5
insteed of my precious           =koi8-r



If fact `mm-find-mime-charset-region','mm-mime-charset' try to find
out mime-charset value via `Character sets' one. 
But should do it thru coding-system (as it said in mule.el).
Yes, my charset is cyrillic-iso8859-5. But
(coding-system-get
  (mm-preferred-coding-system charset) 'mime-charset)
in 'mm-mime-charset' body get that wrong Content-Type as
`mm-prefer-coding-system' value is cyrillic-iso8859-5.

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.



Emacs ver GNU Emacs 20.5.1 (i386-redhat-linux-gnu, X toolkit)
 of Tue Feb 22 2000 on porky.devel.redhat.com
is run on Linux kernel 2.2.14 in unibyte mode.

 
    ______________

         Andrei.Elkin

 P.S this message was posted with the new definition, so should have
Content-Type: text/plain; charset=koi8-r